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