sub nextline { my $fh = shift; my $l; do { $l = <$fh>; if (!defined($l)) { dprint "end of file\n"; return undef } dprint "line is: $l"; next if ($l =~ /^#/); # skip comments $l = clean($l); } until ($l ne ''); # skip blank lines return $l; } ## end sub nextline