foreach(@array) {
    $_ =~ s/(\w)\1/XY/g;
    print "$_ ";      # --> dXYmon jXYz stXYr cXYXYar XYXYb XYXYXYXYXYb
}