if ( $line =~ /([N01]{39})/ )