while ( my $s = myReadLine( $fh ) ) )