1:   74         if(($ENG >0) && ($FIN > 0)) {
     75                 print "mixed languages\n";
     76                 $err++
     77         }
2:   78         elsif (($FIN>0) && ( ($H{I}+$H{L})>1 || ($H{E}+$H{P})>1 )) {
     79                 print "too many lats or lons\n";
     80                 $err++
     81         }
3:   82         elsif (($ENG>0) && ( ($H{N}+$H{S})>1 || ($H{W}+$H{E})>1 )) {
     83                 print "too many lats or lons\n";
     84                 $err++
     85         }
4:   86         elsif ($H{E}>1) {
     87                 print "too many E\n";
     88                 $err++
     89         }
5:   90         elsif ($H{I}>1) {
     91                 print "too many I\n";
     92                 $err++
     93         }
6:   94         elsif ($H{L}>1) {
     95                 print "too many L\n";
     96                 $err++
     97         }
7:   98         elsif ($H{P}>1) {
     99                 print "too many P\n";
    100                 $err++
    101         }
8:  102         elsif ($H{W}>1) {
    103                 print "too many W\n";
    104                 $err++
    105         }
9:  106         elsif ($H{S}>1) {
    107                 print "too many S\n";
    108                 $err++
    109         }
10: 110         elsif ($H{N}>1) {
    111                 print "too many N\n";
    112                 $err++
    113         }
...
11: 133         elsif ($comma_count > 3) {
    134                 print "too many commas\n";
    135                 $err++
    136         }
12: 137         elsif ($dot_count > 2) {
    138                 print "too many dots\n";
    139                 $err++;
    140         }
...
13: 169                 if ($coords =~ /^[-+]?([1-8]?\d(\.\d+)?|90(\.0+)?),\s*[-+]?(180(\.0+)?|((1[0-7]\d)|([1-9]?\d))(\.\d+)?    169 )$/) {
    170                         print "all ok\n";
    171                 } else {
    172                         print "too big numbers\n";
    173                 }