for (<>) { print "Current line is $_"; for (split) { print "Current token is $_\n"; } }