Select Code to Download

use warnings;
use strict;
...
 
$x='abc';
say del1();                              # => "abcxcba"

  DB<105> sub delchar { my $m; $m = $1 if $x =~ s/(\w)//;  $m ?  $m . 
+delchar() . $m : "-"  }
 => 0
...
 
  DB<108> $x='abc'; delchar()
 => "abc-cba"