Select Code to Download

for ("< foo\n", "> bar\n") {
    my $lines = $_;
...
__END__
foo
bar

    $lines =~ s/^(?:<|>)\s//;