while ($stream =~ /$regex/g) { print "token: $1\n"; } [download]
In reply to Re^2: Tokenizing and qr// <=> /g interplay by skyknight in thread Tokenizing and qr// <=> /g interplay by skyknight