Select Code to Download

  if (undef($a) || undef($b)) { ... }

  if ($a = 1) { ... }

  my ($key, $value) = s/(\w+)=(.*)/$1: $2/;

  for my $splort (foo()) {
    do {
...
    } until (happy($splort));
    print "happy or root\n";
  }