Select Code to Download

while (<>) {
        unless (/^(foo|bar)/) {
...
        ....
        ....
}

if ( $_ !~ /^(foo|bar)/ ) {
        die "What the heck?!\n";
}