in reply to Replacing strings
I suggest this node on asking questions effectively. Unless tanktalus really has hit on your basic issue, in which case, congratulations on your economy of means (though I still think you'd be well-served by making your question more explicit).
-----------------
s''limp';@p=split '!','n!h!p!';s,m,s,;$s=y;$c=slice @p1;so brutally;d;$n=reverse;$c=$s**$#p;print(''.$c^chop($n))while($c/=$#p)>=1;
-----------------
s''limp';@p=split '!','n!h!p!';s,m,s,;$s=y;$c=slice @p1;so brutally;d;$n=reverse;$c=$s**$#p;print(''.$c^chop($n))while($c/=$#p)>=1;
In Section
Seekers of Perl Wisdom