eval ($re=qr/foobar/) || warn $@;

##</code><code>##

if (eval ($re=qr/quuzy/)) {
  # manipulate
} else {
   #blargh! bad re
}