Help for this page

Select Code to Download


  1. or download this
    @test = split /\n/, $rec;
    
    # ... work ...
    
    $rec = join "\n", @test;
    
  2. or download this
    @test = split /(?=\n)/, $rec;
    
    # ... work ...
    
    $rec = join '', @test;