Help for this page

Select Code to Download

Select or download this

  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