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