LINE: while (defined($_ = <ARGV>)) {
    chomp $_;
    print $_ if s[0010 0010.*//.*//][];
}