sub lword{
push(@{$a[length]},$_)for(pop)=~/\b\w+/g;@{$a[-1]}
}