my ($nil,$ext) = $file =~ /^(.*?)\.(.*?)$/gs;