@array = /(\S+)/g

Should do it, but there are much prettier examples of column extractions in perldoc perlpacktut.

-nuffin
zz zZ Z Z #!perl