my ($suffix) = $file =~ m/([^\.]+)$/;