Select Code to Download

$ perl -MO=Deparse -le " while (my $val = shift @array) { print $val }
+ "
BEGIN { $/ = "\n"; $\ = "\n"; }
while (my $val = shift @array) {
...
    };
}
-e syntax OK

$error_count++, next if some_condition();