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