Select Code to Download

use Regexp::NamedCaptures;
use re 'eval';
...

my @x = $s =~ qr/$q/;
print "foo = $foo\n\@x = ", join(', ',map { "[$_]" } @x), "\n";