foreach my $line (@data) {
    push @changed, $line =~ s{$s$c$b\K$m(?=$b$c$e)}{$regexR}r;
}