$file =~ s/(th|ht)/t/ig;