Select Code to Download

foreach my $foo (@bars) {
  {
...
  }
  do_more_stuff($foo);
}

foreach my $foo (@foos) {
  if ($foo =~ /baz/i) {
...
} continue {
  do_more_stuff($foo);
}

foreach my $foo (@foos) {
  do_more_stuff($foo);
...
  }
  # stuff
}

foreach my $foo (@foos) {
  do_stuff($foo);
...
  }
  # stuff
}

foreach (1..5) {
  print "Hello\n";
...
  goto DONE;
}
DONE: