perl -e'$tx="aaa \t bbb \t ccc";@let=split(/\t/,$tx);print "<row>";s/\s//g,print "<col>$_</col>" foreach (@let);print "</row>\n"'