#!/usr/bin/perl

######################################################################
%alpha=( ''=>'',''=>'B',''=>'V',''=>'G',''=>'D',''=>'E',''=>'Jo',''=>'Zh',''=>'Z',''=>'I',''=>'J',''=>'K',''=>'L',''=>'M',''=>'N',''=>'O',''=>'P',''=>'R',''=>'S',''=>'T',''=>'U',''=>'F',''=>'H',''=>'C',''=>'Ch',''=>'Sh',''=>'Sch',''=>"'",''=>'Y',''=>'`',''=>'E',''=>'Ju',''=>'Ja',''=>'a',''=>'b',''=>'v',''=>'g',''=>'d',''=>'e',''=>'jo',''=>'zh',''=>'z',''=>'i',''=>'j',''=>'k',''=>'l',''=>'m',''=>'n',''=>'o',''=>'p',''=>'r',''=>'s',''=>'t',''=>'u',''=>'f',''=>'h',''=>'c',''=>'ch',''=>'sh', ''=>'sch','' =>"'",''=>'y',''=>'`',''=>'e',''=>'ju',''=>'ja');
######################################################################
sub trans_lat  {
        local($src)=@_;
        my $dst="";

        for ($i=0; $i<length($src);$i++) {
                $c=substr($src,$i,1);

                if (exists $alpha{$c}) {
                        $dst=$dst . $alpha{$c};
                }
                else {
                        $dst=$dst . $c;
                }
        }

        return $dst;

}
######################################################################
