my @incoming = (
    "AD\thomas",
    "MAIN\nancy",
    "FOO\randy",
    "nancy",
);

s/\t/\\t/ for @incoming;
s/\n/\\n/ for @incoming;
s/\r/\\r/ for @incoming;
print $_, $/ for @incoming;