neganch => sub {
    my $string = "abababa";
    $string =~ s/(b)(?!.*b)$/x/;
    return;
}