Select Code to Download

use strict;
my $toFind="String";
...
        print "$line\n";
    }
}

__DATA__
blah blah string blah
...
Unimportant string
more stuff we wish to String.o
Some more unimportant String.c