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

That neganch test will fail if 'b' isn't the last character in the string, which it isn't.