Change in code "if ( $line =~ /([N01]{39})$/ )"