DB<118> while (my ($line1,$line2) = $data =~ m/^(.*)$/gm) { print "$line1 $line2\n"; last if $x++>5 }
some random
some random
some random
some random
some random
some random
some random