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"