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"