Select Code to Download

my $filenameroot = $file;
$filenameroot =~ s/(.+)\.[^.]+$/$1/;     # File name root

(my $filenameroot) = $file =~ m/(.+)\.[^.]+$/;