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