in reply to unless/if

you can also do : 
die "Oops" unless /matchsomething/

[download]

In Section Seekers of Perl Wisdom