Select Code to Download

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

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