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