#!/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/}
