try {
     die "phooey";
  }
  catch {
     /phooey/ and print "unphhoey\n";
  }