$filename =~ s/$/$ext/ unless $filename =~ m/$ext$/;