my $data = do { local $/, <DATA> };

##</code><code>##

open my $fh, '<', $filename or die $!;
while ( <$fh> ) {
    ... # process one line at a time
}