$_ = 'abcdefghijk';
my($left) =1;
if($left){
  /ab(..)ef/}
else{
  /gh(..)jk/};
print "Caught $1\n"

##</code><code>##

$_ = 'abcdefghijk';
my($left, $var) =1;
if($left){
  ($var) = /ab(..)ef/}
else{
  ($var) = /gh(..)jk/};
print "Caught $var\n"

##</code><code>##

$_ = 'abcdefghijk';
my($left) =1;

$left ? /ab(..)ef/ : /gh(..)jk/;
print "Caught $1\n"

##</code><code>##

$verbtest ? /$verbpat/ :
   $nountest ? /$nounpat/ :
   $preptest ? /$preppat/ :
   die 'No catch on $_';
$catch = $4;