#!/usr/bin/perl 

#getting
while (<stdin>) {
    chomp;
    s/\s{2,}//g;
    s/[^a-zA-z\s]//g;
    last if ( $_ eq "" ) ;
    if (m/\w\s\w/) {
        push @words, (split);
        next;
    }
    push @words, $_;
}

#counting
foreach (@words) {
    $list{$_} = length;
}

#printing
@result = sort { $list{$b} <=> $list{$a} } keys %list;
print "\n";
foreach (@result) {
    print "$_\n";
[download]