Quote

@LAST_MATCH_END
@+

This array holds the offsets of the ends of the last successful submatches in the currently active dynamic scope. $+[0] is the offset into the string of the end of the entire match. This is the same value as what the pos function returns when called on the variable that was matched against. The nth element of this array holds the offset of the nth submatch, so $+[1] is the offset past where $1 ends, $+[2] the offset past where $2 ends, and so on. You can use $#+ to determine how many subgroups were in the last successful match. See the examples given for the @- variable.

1
2
3
4
5
6
7
8

#!/usr/bin/perl
use strict;
use warnings 'all';

my $str = 'bla_blub_bla';

print( $str =~ /([^_]+)_/g , "\n");
print( $str =~ /([^_]+)_/g , "\n");