En op 18 augustus 2002 sprak [EMAIL PROTECTED]: > $_=$"x((1|1<<pop)-1)."/\\ > ";print,s,(?<=\\)..,$&^v15.'|',eg,s,$,/\\,while+s+^ ++ > > I have forgotten how to do Ton's prefix minus 1 trick, > which might be useful here.
It is. $_=$"x~-(1|1<<pop)."/\\ ";print,s/(?<=\\)../$&^v15.'|'/eg,s^$^/\\^while+s\^ \\ (-ugene
