#!/usr/bin/perl
#
# This script accepts MLS4UNIX-encoded (7-bit) Mongolian
# where front vowels are substituted by meaningful combinations
# of `e' and `_'; whichever is encountered tells us that
# the word in question should be converted into its 8-bit form.
#
# While functionally correct, this program skips whitespace and
# is therefore deprecated.
#
while (<>) {
	print "< $_\n";
	split;
	foreach $wort (@_) {
		if (/_/ or /e/) 
			{
			$wort =~ s/u/ü/g;
			$wort =~ s/e/ä/g;
			$wort =~ s/o/ö/g;
			$wort =~ s/_//;
			$wort =~ s/^/[/;
			$wort =~ s/$/]/;
			}
		print $wort;
		}
	}