If you only interested in 32nd column and don't care about what is at the start then

my $find = qr/^.{31}((?:H0|HT).*)/;
while ( <FILE> ) {
    print NEW "$1\n" if /$find/;
}
[download]