Select Code to Download

while (<STDIN>) {
    $_ = "hi test text" if some_condition;
    # etc
}

while (<STDIN>) {
    do {
        local $_ = $_;
...
    } if some_condition;
    # more stuff
}