sub native { return; } /Canterbury(.*)/g; # yea, this is bad... &date( "2001 Jul 21 18:00:00" )->{ dream }; unlink( "~usher/house" ); # This is even worse... print "A\n"; $moheicans[-1]; $list[-1]->{game};