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