# 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


##</code><code>##

perl -lanE "say join ' ',@F[-5,-4,-3,-2,-1]" datacolumn.txt

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