first commit

scripts/atis/find_nonUTF8.pl

@@ -0,0 +1,21 @@
+#! /usr/bin/perl
+
+my($content, $length);
+
+open(FILE, "< airports.vlist") || die "Unable to open file small. <$!>\n";
+
+while( chomp($content = <FILE>) ) {
+    $length = length($content);
+    
+    for( $i = 0; $i < $length; $i++ ) {
+     
+        if( ord(substr($content, $i, 1)) > 127 )
+        {
+            print "$content\n";
+            last;
+        }        
+    }
+}
+close(FILE);
+
+exit 0