my $cmd = q(awk 'BEGIN {FS="\t"}; {print $1}' | sed 's/.$//');
system $cmd;