#!/usr/bin/perl -l

$_ =

q[ for ( @_  ) {  push  @_, sort grep /\w+/, @_ }
 print  unpack  'A*', pack  'B*', join '', reverse map
 {  length ( $_  ) >>  1 }
 split  /\S+/
]

and eval