my $namematch = defined $options{r} ? qr($options{r}) : qr{s/\.[^.]+$//r};
my @name = $file =~ $namematch;

##</code><code>##

my $namematch = qr($options{r});
my @name = defined $options{r} ? $file =~ $namematch : $file =~ s/(\.[^.]+)+$//r;