Pretty cool ZDog, but it doesn't look so nice on a unix
box because there's no newline- my prompt overwrites half
the output.
Fortunately, there's a simple fix, just change the second to last line
$_ = eval '$a';tr;[!@#$%^&*()123456789]; ;;s;\n;;g;s; ;;g;s; ; ;g;
to
$_ = eval '$a';tr;[!@#$%^&*()123456789]; ;;s;\n;;g;s; ;;g;s;$;\n;g;
to get:
#!/usr/bin/perl
$a='#$%K^&*@#$!@#$!@#$#$(*^%$$#&^$#%^$%^*)*(u*#$%^#$&^%&@@^@^@$%
+^%^
&^%&#^&(*s%*(&#@%^@^@$%^@%$*#^&#^%&@$%^#$56^@%^@$^%t^(34^$%^%^#$
+%^#
$% #$%^$%^ B%^n%($ %^$# %^$#%
+^#$
%^ $%^$#^ #$%^#$ %^$ #%^*o
+%@&
t^&*^h* ^#$%^&&e@ ^ #$%^& $%^&* #$% ^&$%^
+$r%
^$%% Q$ %&%&^%*& *$@ ^%*& ^%&^% %^^ $%^&^
+^%%
^e$*&^& ^*&^(*^ #%*%# ^%& ^%^&% &%%
+&%*
%&^%*&% r%^%*&$ %^% ^*&
+&*^
*&^*&lI *%&*^%* &^% %*&% ^(&*&
+*((
a^ 2 *(&)(*& @$^*) )(* &)(!@#$%@#!& )(*)(
+*&c
&* (&)(*&) %^&*( (&( *&)(*&(&k(*& ^*(&^
+*&%
$%^ &(&%&$e# !@#$% $%^ &#@$%^&r@#$% ^&*@#
+$';
$_ = eval '$a';tr;[!@#$%^&*()123456789]; ;;s;\n;;g;s; ;;g;s;$;\n
+;g;
tr;[a-z][A-Z];[a-z] [A-Z];;my $zdog;s;([a-z])([A-Z]);$1 $2;g;pri
+nt;
|