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