character:  /\w/ { print "Character: $item[1]\n" } { $item[1] }