fork(2) download
copy 
  1. my @lines;
  2. /^$/ && last, s/\r?\n$//, push(@lines, $_) for <>;
  3. print @lines;
Success #stdin #stdout 0s 4552KB
comments (?)
stdin
copy 
1st line
2nd line

4th line
5th line
stdout
copy 
1st line2nd line
https://ideone.com/rNhpPF
language:
Perl (perl 5.28.1)
created:
11 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!