Select Code to Download

my @regexps = (
  qr/a/,
...

print("$_\n")
   foreach @matches;

a     (at pos 0)
a     (at pos 1)
...
ab    (at pos 0)
ab    (at pos 3)
abc   (at pos 3)