Select Code to Download

given ($a)
{
  when ('a') { print 1};
  when ('b') { print 2};
  ...
}

$\ = "\n"; # add a line break after each print, say could be used inst
+ead
for my $char (split //, "Hello World")
{
...
      print "Else";
   }
}