Switch

There is no switch statement in Perl, but the bare block contruct allows us to write the equivalent:

$i = $whatever; 
SWITCH: {
  if( $i =~ /case1/) { $var = 1; last SWITCH;}
  if( $i =~ /case2/) { $var = 2; last SWITCH;}
  $var = 3;
}

or

$i = $whatever; 
SWITCH: {
  $var = 1, last SWITCH if( $i =~ /case1/); 
  $var = 2, last SWITCH if( $i =~ /case2/); 
  $var = 3;
}