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

# ... work ...

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