in reply to Regex Or Die!

Hi pileofrogs,

How about ...? 

/^(foo|bar)/ or die "What the heck?\n";

[download]
That's fairly succinct, isn't it?
s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/

In Section Seekers of Perl Wisdom