qwurx [shmem] ~ > perl -le '$_ = "foo bar baz"; $c = (/\w+/g); print $c' 1