$fn =~ s/[^.]*$/txt/;