unless you object to using a module, how about this:

use Carp::Assert;

while (<>) {
        assert( /^(foo|bar)/ );
        my $dumb_example = $1;
        ....
        ....
}
[download]