while ( ) { next if substr( $_, 0, 1 ) eq '#'; }