Ja klar funktioniert der nicht. Du liest zeilenweise ein, verlangst in dem Regexp aber mehrere Zeilen...

Wenn Du vor der while-Schleife ein "local $/;" machst, funktionierts...