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