in reply to Can this be a 1 line or simpler regex?

s/([\t\n\r\f])/${{"\t"=>"\\t","\n"=>"\\n","\r"=>"\\r","\f"=>"\\f"}}{$1}/g;

In Section Seekers of Perl Wisdom