Hello kynn - and all, [..] > what you require is a modifier for the s/// operator (perhaps 'r') which > makes s/// return the transformed string as a result rather than the > number of occurences of the pattern, assigning the value of a variable to
number of substitutions > a local $_ (for the s/// operator to work with) and storing the result in > a kin of the builtins $_,$',$` and $& - let's assume $§: sorry about that. I almost always begin to get scrupulous with mails I actually sent, as with programs I wrote... :) greets, georg -- _($_=" "x(1<<5)."?\n".q·/)Oo. G°\ / /\_¯/(q / ---------------------------- \__(m.====·.(_("always off the crowd"))."· ");sub _{s,/,($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e,e && print}