Help for this page

Select Code to Download

Select or download this

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