hi all,
this is my first non 4 line obfu. hope you guys like it.
$_="C,9++xS8+5!+xS5!+5!+xS0%/x+++5!S+x755!S+x";s#[^x]#-21+ord$&#eg;s#.
+#0
0$&#g;s#0x#40x#g;$a='$_="072x'.$_.q`072";$a="\$a=q\x60$a\x60;".'$a=~s#
+\s
##g;eval$a';@z=map{$d=0;s#...#($d=!$d|0)x$&#eg;$_=[split//]}split/x/;{
+$b
=reverse$a;print"\ec";map{print$_?chop$b:$"for@$_;print$/;push@$_,shif
+t@
$_}@z;select$q,$q,$q,.05;redo}`;$a=~s#\s##g;eval$a

[download]

This is an updated version - the old one is in here: 

$a=q`$a="\$a=q".($t=chr(96)).$a.$t.';$a=~s#\s##g;eval$a#';$_="73x05100
+50
507070403040320x080407030103060303030203040320x08040603030305030303020
+30
40320x080405110407041020x08040404050403030803040320x020303040304070402
+03
0803040320x03080403090302030803040320x73";@z=map{$d=0;s#..#$d=!$d;($d|
+|0
)x$&#eg;$_=[split//]}split/x/;{$b=reverse$a;print"\ec";$c=0;map{for(@$
+_)
{print$_?(chop$b):$"}print$/;$_=[@$_[0],@$_[70],@$_[1..69],@$_[71]];}@
+z;
select$q,$q,$q,.05;redo}`;$a=~s#\s##g;eval$a##########################
+##

[download]

it's a bit cheesy, but i quite like it.
update: Sorry meant to say - it does require vt100 ness (it uses \ec to clear the screen).
update2: i've compressed it a bit, and put original in readmore

al

In reply to whitespace evil? by teamster_jr

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.