local $_ = 'foo';
say 'Start' if /\G foo/gcx;
say 'Mid'   if /\G .*/gcx;
say 'End'   if /\G \z/gcx;

##</code><code>##

Start
Mid

##</code><code>##

say 'Mid' if /\G .+/gcx;

##</code><code>##

Start
Mid
End

##</code><code>##

perl -E 'local $_ = "foo\n"; say "Start" if /\G foo/gcx; say "Mid" if /\G .*/gcx; say "End" if /\G (?=\n)/gcx'