http://www.perlmonks.org?node_id=198944

For my first obfu I shall attempt to draw a hedgehog... go on... use your imagination!
#!/usr/bin/perl -w use strict; #- $;#- ='j'#- ;$"=#- 'p';#- ;@_#- #=$[#- =('a'#- ,'h');#- print$;#- ."@_"#- ;#- #-
Neil

Update: Node slightly edited, just an apology for writing "Perl" (now /usr/bin/perl) after the shebang on the first line... my excuse is Windows at work making me sloppy! Thanks podmaster! Hmmm.. then I lost the bang... thanks claree0... I really should be more careful!