sub handleSomething($){
  my $result = shift;
  SWITCH: for($result){
	# case 'success' ?
        /success/i && do{
		print "Great !\n";
		last;
        };
        # case 'failure' ?
        /failure/i && do{
		print "So bad :(\n";
		last;
        };
        # case default ?
        do{
		print "not implemented: $result\n";
		last;
        };
  }
  # do general stuff
}

handleSomething('test');
handleSomething('success');
handleSomething('FaiLuRe');