for($switch_me) {
    /bob/   && do { print "Got 'bob'!\n"; break };
    /frnak/ && do { print "Got 'frnak'!\n"; break };
    $_ == 1 && do { print "Got 1!\n"; break };

    print "Got nuttin'!\n";
}