# warning windows doublequote

perl -lanE "print $1 if /^.{17}(.*)/" datacolumn.txt

HT000000000 123 50 70 80
H0000000000 123 50 70 80
HT000000000 123 50 70 80