while (/.../g) {
   ...
}

##</code><code>##

/\G( ... )/g
   or die;
my $token1 = $1;

/\G( ... )/g
   or die;
my $token2 = $1;

...