perl -MO=Deparse -lne 'print if s/0010 0010.*\/\/.*\/\///'

##</code><code>##

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

##</code><code>##

#!/usr/perl -w
use strict;

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

##</code><code>##

#!/usr/perl -w
use strict;

my @interesting_lines = map  { s[0010 0010.*//.*//][] ? $_ : ()} 
                        (<ARGV>);
print "Name: $_"
  for @interesting_lines;