Warp <war### [at] tagpovrayorg> wrote:
: (^|\W)fopen($|\W)
Well, if we are using perl, we can simplify that even more:
\bfopen\b
--
main(i,_){for(_?--i,main(i+2,"FhhQHFIJD|FQTITFN]zRFHhhTBFHhhTBFysdB"[i]
):_;i&&_>1;printf("%s",_-70?_&1?"[]":" ":(_=0,"\n")),_/=2);} /*- Warp -*/