Select Code to Download

#!/usr/bin/env perl
#
...
    sub is_a_match { $_[0] =~ /$re/ }
}
sub process_match { print "Match: $_[0]" }

$ pm_1155868_first_grep_large_file_2.pl
Match: dddddddxyzdddd