On Apr 21, 2004, at 5:52, Xavier Noria wrote:

$n=$x eq$y?$z:do{1while$x=~/./sg&$y=~/\G$&/g;$-[0]}

A little bit shorter (47):


{$x ne$y&&$x=~/./sg&$y=~/\G$&/g&&redo;$n=$-[0]}

-- fxn


Reply via email to