Select Code to Download

while (<>) {
    last if /pattern/;
    ...
}

C:\>perl -MO=Deparse -e"while (<>) {}"
while (defined($_ = readline ARGV)) {
...
-e syntax OK

C:\>