Help for this page

Select Code to Download

Select or download this

  while ( defined( my $line = <HANDLE> ) ) {
    $line =~ s/\s*[\n\r]*\Z//s;
    .
    .
  }