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