$_ = "alpha\tbravo\tcharlie\n";
print;
s/\t/\\t/g;
print;
### You'd have user edit it
s/\\t/\t/g;
print;
### Write back to file