(fixed the code)

I suppose a single regex could be devised for this but it'd be suboptimal compared to what you already have. A short loop would also do this and again, I prefer your original.

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