I think the above is fine, but if you insist on less lines:

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

I wouldn't call it simpler though.

Abigail