From: Mark Andrews Date: Fri, 5 Jan 2007 04:28:12 +0000 (+0000) Subject: leave ; - ; + if (/\?>$/) { + $_ = ; + close(SOURCE) if (eof(SOURCE)); + next; + } while (!eof(SOURCE) && ! /^;