The program:

#!/usr/bin/perl -l00p
$_||='D\'oh!';$x=bless\substr($_,0,length),'D';$x->oh;
sub D'oh{${$_[0]}=~eval sprintf"%c"x8,qw/115 32 115 46 115 115 115 103/}

Well, we create an LVALUE reference to substr(), the entire contents of
$_, and bless it into the D class.  The oh() function in the D class
takes the substr() references and does a regex on it.  The above regex
(the eval sprintf junk) is "s s.sssg", which deletes every character
in the string.

The -l00p switch just does an input loop around the script.  So whatever
you input gets deleted and printed back.
