You're trying to break this into words, right? Why not use split()?
my ( @words ) = split /\s/, $line; [download]
In reply to Re: Variable Length Parsing by TomDLux in thread Variable Length Parsing by ACiD