open my $fh, "<:crlf:scalar", $record{'data'}
    or die ...;
{
    local $/ = "\n";
    while ( my $line = <$fh> ) {
        print "in line\n";
    }
}