while (<>) {
        unless (/^(foo|bar)/) {
                die "I can't handle this crap! '$_'\n";
        }
        my $dumb_example = $1;
        ....
        ....
}

##</code><code>##

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