Select Code to Download

print $re;
__DATA__
(?-xism:(?-xism:(?:(foo))(?{$result{$_}++}))|(?-xism:(?:(bar))(?{$resu
+lt{$_}++})
)|(?-xism:(?:(12345))(?{$result{$_}++}))|(?-xism:(?:(abcd))(?{$result{
+$_}++})))

my $data = "foofdsfdsbar";
my @matches = 
    $data =~ m/(foo)(?{print "($1,$2,$+)"})|(bar)(?{print "($1,$2,$+)"
+})/g;
__DATA__
(foo,,foo)(,bar,bar)

#!/usr/bin/perl

...

print "$_: $result{$_}\n" for @keywords;