Help for this page
@test = split /\n/, $rec; # ... work ... $rec = join "\n", @test;
@test = split /(?=\n)/, $rec; # ... work ... $rec = join '', @test;