Select Code to Download

pl@nereida:~/Lperltesting$ cat ./offsetsin5_10.pl
#!/usr/local/lib/perl/5.10.1/bin//perl5.10.1
...
chomp($input);
if ($input =~ $parser) {
  say "matches: ($&)";

pl@nereida:~/Lperltesting$ ./offsetsin5_10.pl
abab
...
@+ = (4, 2, 4, , , )     6 items

matches: (abab)