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;
|