for(qw't n r f') { my $r = "\\$_"; $text =~ s/$r/$r/g; }