#!/usr/perl -w
use strict;

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