Select Code to Download

use feature qw(switch);
 
...
  last;
  print
}

$\="\n";
 
...
  when (/2/) {print "2 matched"};   # nix
  if   (/3/) {print "3 matched"};   # nada
}