Re: Re: Re: The longest word ....

[Anarion]

Another point of view without using sort:

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

Or clean the array every iteration too:

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

Update:(Changed "while" with "for" after testing)

$anarion=\$anarion;

s==q^QBY_^=,$_^=$[x7,print