Help for this page

Select Code to Download

Select or download this

my @Book = ();
my %MatchFound;
...
foreach (@Book) {
  $MatchFound{$_}++ if ( /\bPerl\b/i && /\bMonks\b/i && /\bRule\b/i );
}

Select or download this

my @Book       = ();
my %MatchFound = map{ $MatchFound{$_}++ if ( /\bPerl\b/i && /\bMonks\b
+/i && /\bRule\b/i ) } @Book;