Select Code to Download

use warnings;
use strict;
...
    next unless $_ eq 'foo' .. undef;
    print "$_\n";
}

foo
qux2
bar2
foo
foo3