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