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