Replace a perl usage with an AWK one.

Submitted by:	Bob Willcox <bob@immure.com>

usr.bin/locate/locate/mklocatedb.sh

@@ -76,7 +76,7 @@ if [ X"$1" = "X-presort" ]; then
 
     $code $bigrams > $filelist || exit 1
     locate -d $filelist / | $bigram | $sort -nr | head -128 |
-    perl -ne '/^\s*[0-9]+\s(..)$/ && print $1 || exit 1'  > $bigrams || exit 1
+    awk '{if (/^[ 	]*[0-9]+[ 	]+..$/) {printf("%s",$2)} else {exit 1}}' > $bigrams || exit 1
     locate -d $filelist / | $code $bigrams || exit 1
     exit