Select Code to Download

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

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

#!/usr/perl -w
use strict;
...
    chomp $line;
    print $line if s[0010 0010.*//.*//][];
}

#!/usr/perl -w
use strict;
...
                        (<ARGV>);
print "Name: $_"
  for @interesting_lines;