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