Select Code to Download

grep PATTERN FILE_TO_SEARCH_IN > FILE_WITH_SEARCH_RESULTS

#!/usr/bin/perl
use strict;
...
while (<>) {
    print if m/$pattern/;
}

perl script.pl PATTERN FILE_TO_SEARCH_IN > FILE_WITH_SEARCH_RESULTS