Select Code to Download

  DB<112> sub tst2 { 'a' =~ /(\w)/; $1. tst(). $1 }
 => 0
...
  DB<114> 'c' =~ /(\w)/; print $1. tst2(). $1
 => 1
cabac

  DB<123> sub delchar { $x =~ s/(\w)// ? $1 . delchar() . $1 : "x"  } 
 => 0
 
...
 
  DB<125> delchar()
 => "cccxccc"

  DB<138> sub del1 { $x =~ s/(\w)// ? $1 . del2() . $1 : "x"  } 
 => 0
...
 
  DB<142> $x='abc'; del1()
 => "abcxcba"

  DB<111> sub del2 { $x =~ s/(\w)// ? $1 . del1() . $1 : "-"  } 
 => 0
...
 
  DB<113> $x='abcd'; del1()
 => "cdcd-dcdc"