Help for this page

Select Code to Download


  1. or download this
    for (split /\n/, $longstring) {
  ...
}
  2. or download this
    open my $fh, '<', \$longstring;
while (<$fh>) {
  ....
}