use feature qw(switch);
 
given (1) {
  print;
  break;
  print
}
 
for (1) {
  print;
  last;
  print
}

##</code><code>##

$\="\n";
 
for ("012") {
  if   (/0/) {print "0 matched"};   # prints 0
  when (/1/) {print "1 matched"};   # prints 1
  when (/2/) {print "2 matched"};   # nix
  if   (/3/) {print "3 matched"};   # nada
}