Select Code to Download

#!/usr/bin/env perl -l

...
untie @lines;

print "Match: '$match'";

$ cat pm_1155868_input.txt
aaaaaaaaaaaaaa
...
gggggggggggggg
hhhhhhhhhhhhhh
iiiiiiiiiiiiii

Match: 'dddddddxyzdddd'