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