$newfile =~ s/\^$/.rtf/;