my $ext = ($file =~ m{\.([^.]+)$})[0]