>#!/usr/bin/perl
>@lab=("Ê°","°Û","Ǫ","Íò","Ê°","°Û","Ǫ","ÒÚ");
>$flag1=0;
>$flag2=0;
>$flag3=0;
>$num=23;
>$var=23000;
>$st="Áã";
>$strl="";
>$i=8;
>if($var>10000){
>                $flag3=1;
>               };
>for ($i>=0){
>      $temp=$var;
>      $var = $var%(10**$i);
>      $temp=$var - $temp;
>      $inter = $temp/(10**$i);
>      if (($i=4) && ($inter=0) && $flag3 ){
>                             $str = $str . "Íò"
>                                            };
>If ($inter != 0){
>   If(Not $flag1){
>         $flag1=1;
>      If($flag2){
>         $strl.=$st;
>         $flag2=0;
>            }
>         $strl = $strl . $chg($inter) . $lab(i);
>                   };
>ElseIf ($flag1)
>      {
>    If (Not $flag2) { $flag2 = 1};
>      }
>$i=$i-1;
>}
>$strl = $strl . "Ôª";
>
>sub chg{
>my($numb)=@_;
>if ($numb=1){ return "Ò¼"};
>if ($numb=2){ return "·¡"};
>if ($numb=3){ return "Èþ"};
>if ($numb=4){ return "ËÁ"};
>if ($numb=5){ return "Îé"};
>if ($numb=6){ return "½"};
>if ($numb=7){ return "Æâ"};
>if ($numb=8){ return "°Ç"};
>if ($numb=8){ return "°Ç"};
>if ($numb=9){ return "¾Á"};
>if ($numb=0){ return ""};
>}