#!/usr/bin/perl
# sort a hyphenation file
use IO::Handle;

while (<>) { print; last if /^\\patterns{/ }
STDOUT->flush;
open (SORT, "| sh sortkoi8 | awk '{print \$2}'");
while (<>) { last if /^}/; chomp; $temp=$_; s/[0-9.]//g; print SORT "$_\t$temp\n" }
close (SORT);
print;
while (<>) { print }