my ($filename, $ext) = $file =~ /^(.+)(?:\.(.*))?$/s