I'm rather new at obfu, and became inspired after a post I saw yesterday. After realizing how simple it was, I expanded it a bit and here we go (doesn't pass w/ use strict):

@#=qw/190468 713706 146 285074 141371
146/;@'=(' ','',' ',' ','',' ');$/=
":)\n";$|++;foreach(@#){$.='a';for
(0..$_){$.++}print$..$'[$-++]}print$/
[download]

Any comments would be great!