Select Code to Download

$_ = 'foo(';

...

# test it
print "match" if /$regex/;

$regex =~ s/([^\w\s\\|()[\]{}^\$*+?.])/\\$1/g;