Description :
If you have not yet seen the most clever Acme::Bleach.pm by Damian Conway,
go see that *now*. The only trouble with showing off Bleach to your friends
is that it requires Bleach to be installed on their machines. So here is
Smirch, that does the converse of Bleach - rewrites your program using only
non alphanumeric characters BUT it does not depend on any external module!
That\'s right - complete perl without numbers or letters.
After you have Smirched a program, the program continues to work as before
except now it is absolutely unreadable as the module removes all _sightly_
characters from your source file.
The Smirched program has to sit in a file of its own - you cannot run a
smirched program by piping it to perl.
You can now reform your source to look like this:
$==$\';
$;||$.| $|;$_
=\'*$ ( ^AATT(%_+&~~;# ~~/.~~
;_);;.);;#) ;~~~~;_,.~~,.* +,./|~
~;_);AATT-, .;.); ~ ~,./AATTAATT-__);AATT-);~~,.*+,.
/|);;;~~AATT-~~~~;;(),. ;.,./AATT,./AATT,.;_~~AATT-););,.
;_);~~,./AATT,.;;;./AATT,./ |~~~~;#-(AATT-__AATT-__&$#%^\';$__
=\'`\'&\'&\';$___=\"````\" |\"$[`$[\"|\'`%\",\';$~=(\"$___$__-$[``$__\"|
\"$___\"| (\"$___$__-$[.%\")).(\"\'`\"|\"\'$[\"|\"\'#\").
\'/.*?&([^&]*)&.*/$\'.++$=.(\"/``\"|\"/$[`\"|\"/#\'\").(\";`/[\\\\`\\\\`$__]//`;\"
|\";$[/[\\\\$[\\\\`$__]//`;\"|\";#/[\\\\\\$\\\\.$__]//\'\").\'AATT:=(\"AATT-\",\"/.\",
\"~~\",\";#\",\";;\",\";.\",\",.\",\");\",\"()\",\"*+\",\"__\",\"-(\",\"/AATT\",\".%\",\"/|\",
\";_\");AATT:{AATT:}=$%..$#:;\'.(\'`\'|\"$[\"|\'#\').\"/(..)(..)/\".(\"```\"|\"``$[\"|
\'#(\"\').\'(($:{$\'.$=.\'}< < \'.(++$=+$=).\')|($:{$\'.$=.\'}))/\'.(\"```;\"|
\"``$[;\"|\"%\'#;\").(\"````\'$__\"|\"%$[``\"|\"%&!,\").${$[};`$~$__>&$=`;$_=
\'*$(^AATT(%_+&AATT-__~~;#~~AATT-;.;;,.(),./.,./|,.-();;#~~AATT-);;;,.;_~~AATT-,./.,
./AATT,./AATT~~AATT-);;;,.(),.;.~~AATT-,.,.,.;_,./AATT,.-();;#~~AATT-,.;_,./|~~AATT-,.
,.);););AATT-AATT-__~~;#~~AATT-,.,.,.;_);~~~~AATT-);;;,.(),.*+);;# ~~AATT-,
./|,.*+,.,.);;;);*+~~AATT-,.*+,.;;,.;.,./.~~AATT-,.,.,.;_) ;~~~
~AATT-,.;;,.;.,./AATT,./.);*+,.;.,.;;AATT-__~~;#~~AATT-,.;;,.* +);;
__ ~~;;);/AATT;#.%;#/.;#-(AATT-__~~;;;.;_ ;#.%~~~~ ;;()
,.;.,./AATT,. /AATT,.;_~~AATT- ););,.;_ );~~,./ AATT,.
;;;./AATT,./| ~~~~;#-(AATT- __,.,.,. ;_);~~~ ~AATT
-~~());; #);AATT-,./AATT, .*+);;; ~~AATT-~~
);~~);~~ *+~~AATT-);-( ~~AATT-AATT-_ _~~AATT-
~~AATT-);; #,./AATT,.;., .;.);AATT -~~AATT-;
-);~~, .*+,./ |);;;~ ~AATT-~~
;;;.; _~~AATT-AATT -__);. %;#-(
AATT-__AATT -__~~;# ~~AATT-;; ;#,.
;_,.. %);AATT-,./AATT, .*+,
..%, .;.,./|) ;;;)
;;#~ ~AATT-,.*+,. ,.~~
AATT-); *+,.;_);;.~ ~););
~~,.; .~~AATT-);~~,.;., ./.,.;
;,.*+ ,./|,.); ~~AATT- );;;,.(
),.*+); ;#~~/|AATT-
__~~;#~~ $\';$;;
Valid and devious perl.
|
