eval { die "woot!\n" };
if ( $@ =~ /woot/ ) {
  die "This is a 'woot' error!\n"
}
else {
  die $@;
}