(my $basename = fileparse($file)) =~ s/ \. .* $ //x;