2 added 7 characters in body
source | link

perl 5 (-p0777 -M5.01-p0777F/\n/ -M5.01), 6259 bytes

for$x(sort{$b=~y///c-length$a}/.+/g@F){--$|?$\="$x
".$\:say$x}}{

TIOTIO

perl 5 (-p0777 -M5.01), 62 bytes

for$x(sort{$b=~y///c-length$a}/.+/g){--$|?$\="$x
".$\:say$x}}{

TIO

perl 5 (-p0777F/\n/ -M5.01), 59 bytes

for$x(sort{$b=~y///c-length$a}@F){--$|?$\="$x
".$\:say$x}}{

TIO

1
source | link

perl 5 (-p0777 -M5.01), 62 bytes

for$x(sort{$b=~y///c-length$a}/.+/g){--$|?$\="$x
".$\:say$x}}{

TIO