unless (4 = $foo) {
   ... womble ...
}