Another point of view without using sort:

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

Or clean the array every iteration too:

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

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

$anarion=\$anarion;

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