Select Code to Download

     pos SCALAR

...
     modified to change that offset.  Such modification
     will also influence the C<\G> zero-width assertion in
     regular expressions.  See L<perlre> and L<perlop>.

    pos() - length $&

    my $R = "foo bar quux baz";
    while ($R =~ /ba.\b/g) {
        print pos($R) - length $&, "\n";
    }

    4
    13