Select Code to Download

while ( <FH> ) {
    next if $_ eq 'foo'; # Where foo can only appear once in the file
    print;
}

#!/usr/bin/perl
use strict;
...
        $block->();
    }
}