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

##</code><code>##

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