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