while(<FILE>) {
    ...

##</code><code>##

for (split "(?<=\Q$/\E)", $contents_of_FILE) {
    ...