my $s = 'abcd';
$s =~ s/a(?=bc)/x/;  # xbcd

my $s = 'aefg';
$s =~ s/a(?=bc)/x/;  # abcd