Switch for Perl done right

Instead of the horribly flaky 'Switch' module, from Perl 5.10 you can now do:

use feature "switch";

given($_) {
    when (/^abc/) { $abc = 1; }
    default { $nothing = 1; }
}

 
See http://perldoc.perl.org/perlsyn.html#Switch-statements