There's also

if ( !/^(foo|bar)/ ) {
        die "What the heck?!\n";
}
[download]

( doh! Frodo beat me by mere seconds. If only he was as quick at getting to Mount Doom. )