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