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