my ($ext) = $file =~ /[.]([^.]+)$/gs;