Select Code to Download

$a='aa';
$b='s/a/b/';
eval '$a =~ '.$b;

my $namematch = $options{r} // 's/\.[^.]+$/+/r';
my @name;
eval '@name = $file =~ '.$namematch;