Something More Elegant

gistfile1.pl

#!/usr/bin/env perl

# in response to http://stackoverflow.com/a/10841473/468327
use strict;
use warnings;

my %data;
my $tag = 'Initial';
while (<DATA>) {
  chomp;
  if (/^(\w+):/) {
    $tag = $1;
  } else {
    push @{$data{$tag}}, $_;
  }
}

use Data::Dumper;
print Dumper \%data;

__DATA__
Summary:
xyz

Configuration:
abc
123

Tools:
pqr
456