Select Code to Download

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

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

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

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

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