Select Code to Download

    my $data = do { local (@ARGV, $/) = $filename; <> };

    #!/usr/bin/perl
    use strict;
...
    /$nets/
        or print
      while <STDIN>;