Re^2: How to extract Start .. End from multiline file

Your code, shown below, does not work the same way.

Are you sure?

>perl -MO=Deparse -e "while ($var = <fh>) { }"
while (defined($var = <fh>)) {
    ();
}
-e syntax OK
[download]

Comment on Re^2: How to extract Start .. End from multiline file Download Code