next unless $line = <>;