ch9_match_list.pl

#!/usr/bin/perl -w
use strict;

print "-" x 50,"\n";

my $text = "Fred dropped a 5 ton granite block on Mr. Slate";
print "\$text = $text\n";
print 'Search Pattern = /([a-z]+)/ig)',"\n";
my @words = ($text =~ /([a-z]+)/ig);
print "Results: @words\n";

print "-" x 50,"\n";

my $data = "Barney Rubble Fred Flintstone Wilma Flintstone";
print "\$data = $data\n";
print 'Search Pattern = /(\w+)\s+(\w+)/g',"\n";
my %last_name = ($data =~ /(\w+)\s+(\w+)/g);
print 'my %last_name = ($data =~ /(\w+)\s+(\w+)/g)',"\n";
foreach my $key (sort keys %last_name) {
  print "$key => $last_name{$key}\n";
  }

print "-" x 50,"\n";

if ($data =~ /(\w+)\s+(\w+)/g) {
  print "\$` = $`\n";
  print "\$& = $&\n";
  print "\$' = $'\n";
  }
#else {

#  }

print "done.\n";