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