#!/usr/bin/perl -w use strict; $_=" 441203030301 1403030301143405 44143 41434 143 405 44 14 03 0303 0414 03 03 0302 1403 03 03 04 05 44 14 341 454 34 05 0103030302 14 34 145434 05 000 000 00000 00000 0000000000000000 000000000000 "; s!\s!!g;$_=join'',map{m((.)(. ))x;$_=' 'x$1.$2;}(m((..))g); y!012345! \\/\-\|\n|!;print;

Replies are listed 'Best First'.
Re: Happiness
by tachyon (Chancellor) on May 18, 2001 at 16:17 UTC
    A nice variation on the theme
     
    tachyon
    #!/usr/bin/perl -w use strict; $_=" 44120303030114030303011434054414341434143405441403030304140303030 +214030303040544143414543405010303030214341454340500000000000000000000 +000000000000000000000000"; # remove spaces s!\s!!g; # grab 2 chars at a time, 1st defines number of spaces, # second is char code. /x does nothing other than obfu # shove the spaced but still encoded chars back into $_ $_=join'',map{m/(.)(.)/x;$_=' 'x$1.$2;}(m/(..)/g); # tranliterate the coded chars also add newlines y!012345! \\/\-\|\n|!; # 0 => ' ' # 1 => '\' # 2 => '/' # 3 => '-' # 4 => '|' # 5 => '\n' print;