Select Code to Download

while (<SOURCE>) {
   $script = <SOURCE>;

while (my $script = <SOURCE>) {

@line=grep( /$script/, @sfile );

push @lines, grep( /$script/, @sfile );

@line = grep( /$script[0]|$script[1]|.../, @sfile );

#!/usr/bin/perl -w

...
while (<$in_fh>) {
    print $out_fh $_ if /$pat/;
}

#!/usr/bin/perl -w

...
while (<>) {
    print if /$pat/;
}

filter 30.txt searchfile.txt > newfile.txt