A     B
      C
D
   E

##</code><code>##

A\tB
\tC
D\t
   E\t

##</code><code>##

# first remove tabs from data and sub in 4 spaces
$_ = s/\t/    /g for @cols
my $row = join "\t", @cols;
print SOMEFILE $row, "\n";

##</code><code>##

@cols = ( "foo", "\t", "bar" );
print "original '@cols' ", scalar @cols, "\n";

s/\t/<%tab%>/g for @cols;
$row = join "\t", @cols;
print "row      '$row'\n";

@ret_cols = split "\t", $row;
s/<%tab%>/\t/g for @ret_cols;

print "retreive '@ret_cols' ", scalar @ret_cols, "\n";

__DATA__
original 'foo 	 bar' 3
row      'foo	<%tab%>	bar'
retreive 'foo 	 bar' 3