if ( $truth and $beauty ) { split' ',
$ms; $ls[ $false+=8 ] = shift @_ while @_;
map { $_ = 054 + length } @ls;
# This part is important!!!
23 while s/(.{0,8})(..)/crypt$1,$2/ge; }