Select Code to Download

if (/regexp/) {
 no strict 'refs';
...
   ...
 }
}

$text =~ s{regexp}{
 no strict 'refs';
...
 }
 ...
}ge;