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

##</code><code>##

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