$_='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;