foreach v [split "Cozy lummox gives smart squid who asks for job pen." ""] {puts $v}