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

I don't see what's so difficult to read about that. It only has several more punctuation symbols (hey, all one character wide visually, so they're harder to pick out than a six-character English keyword!) than the equivalent:

I mean, you're basically insulting a natural bodily function here.