Okay, I was actually aiming for a deeper obfu, but got a bit sidetracked by silly thoughts.

$_='limp';@python=split '!', 'now!  dangerouth thnaketh!help!';s,m,s,;
$stab=y;
$and=slice @python[1],$python[2];
most brutally;d; $net=reverse;$cut=$stab**$#python;print (''.$cut^chop
+($net)) while ($cut/=$#python)>=1;
[download]

This isn't really meant to be a statement against snakes (or anything else, for that matter. If you de-obfu it, you can see where I was going, I just didn't really get there) ;).