You might try changing the :raw to :crlf. Try also setting $/ to \n.

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