s{([\t\n\r\f])}{ local $_= '\\' . $1; tr[\t\n\r\f][tnrf]; $_ }eg