if ($foo and /bar/) {
   print "Condition suceeds.\n";
   if ($bloop and /bop/) {
      #...
   }
   # do other stuff, maybe even exit...
   s//baz/; # switch bar or bop with baz depending 
            # on a bunch of things that have already happened.
 }