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