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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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