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