$_ = "one\ttwo\nthree four five\r";

s/(\t)|(\n)|(\r)|(\f)/
    $1 ? '\t' :
    $2 ? '\n' :
    $3 ? '\r' :
    $4 ? '\f' :
    ''
/ge;