if (! /^(foo|bar)/) { die "in pain"; }

##</code><code>##

die "whatever" unless /^(foo|bar)/;