Select Code to Download

# Bad code. Don't copy
while(<>) {
...
    my($val)=$1;
    # do something with $val.
}

while(<>) {
    my($val);
...

    # Do something with $val.
}