UPDATE: Please read this node by jynx and my reply. I didn't want to dis EmmittSmith, and there I state why I don't think that my posting does.

After reading Got Bored by EmmittSmith (a rather unobfuscated obfuscation) I thought I could do it better:

#!/usr/bin/perl -w
use strict;

$_='073100061219051813072308
';$\=$/;$/=$";$"='**';$$
='$/ x --$_[1],$" x
++$_[2]';for($:
='(..)'x3;s;$:;;;$$
=~y=+-=-+=){@_=($1,$2,$3
);print eval$$ while$_[0]--}
[download]

I didn't change the basic idea of EmmittSmiths obfu (it still prints the same ascii-star using the same printing algorithm (print some spaces, print some '*'), but it now shouldn't be that obvious what's going on.

And it's running under strict!

--
#!/usr/bin/perl -w just another perl hacker
print+seek(DATA,$=*.3,@-)?~~<DATA>:$:__DATA__