Can this be a 1 line or simpler regex?

smackdab has asked for the wisdom of the Perl Monks concerning the following question:

$_ = "one\ttwo\nthree four five\r";
s/\t/\\t/g;
s/\n/\\n/g;
s/\r/\\r/g;
s/\f/\\f/g;
[download]

THANKS (I don't think there a fn for this...the closest I saw was quotemeta and I don't think tr/// helps...)