Select Code to Download

$ perl -e 'my $regexStr = qr{[0-9]+};
print "$regexStr\n";
...
'
(?^:[0-9]+)
Regexp