in reply to Re^2: how to reg-exp match across multiple lines?
in thread how to reg-exp match across multiple lines?

-s can take a filehandle as argument as well. 
    open my $fh => "/etc/motd";
    print -s $fh, "\n";
    __END__
    13
 
    $ wc -l /etc/motd
    13

[download]

Abigail

In Section Seekers of Perl Wisdom