OK, that seems to make sense... So presumably the following idiom is the right way to go about things...

while ($stream =~ /$regex/g) {
    print "token: $1\n";
}
[download]