perl -pe"$_ = join qq[\t], unpack 'a17 a6 a31 a3 a3', $_" infile > outfile