>perl -wMstrict -le
"my $total = qq{123\tasdfghhj\n};
 print qq{[$total]]};
 ;;
 ($total) = split /\t/, $total, 2;
 print qq{'$total'};
"
[123    asdfghhj
]]
'123'