if ( /^(foo|bar)/ ) {
    my $useful_code;
} else {
    die "What the heck?!\n";
}