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