Select Code to Download

use strict;
use warnings;
...
eval "if( \$string =~ $re ) { print qq/Yep\n/; }";
warn $@ if $@;
print $string, "\n";