@test = split /(?=\n)/, $rec;

# ... work ...

$rec = join '', @test;