@test = split /\n/, $rec;

# ... work ...

$rec = join "\n", @test;

##</code><code>##

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

# ... work ...

$rec = join '', @test;