Your script seems pretty straightforward to me: Print some spaces and '*'s, depending on $i and $b ...
UPDATE: See Got Bored, Too for an improved version of this "obfuscation" ...
-- #!/usr/bin/perl -w just another perl hacker print+seek(DATA,$=*.3,@-)?~~<DATA>:$:__DATA__
In reply to Re: Got Bored
by domm
in thread Got Bored
by EmmittSmith
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |