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