$_ = 'abxy' x 12;
for(my $i = 0; m/ab/g and $i++<5;) {
    substr($_, $-[0], $+[0]-$-[0]) = 'abXab';
    pos = $-[0]+5;
}
print;