regex - Perl 数字を単語に変える

Question

その前に、同じ質問をして回答を得たことがありますが、私は間違っていました。ライブラリ、特に Lingua::Numbers を使用せずに数字を単語に変換する必要があります。

電話番号の数字を区切る例を見つけました。次に、スクリプトに例を実装しようとしました。しかし、うまくいきませんでした。

これが私のスクリプトです。

$x = "1104";
$x =~ s/1/ one /gi; #from 1-10, I, substitute number to words to words
$x =~ s/2/ two /gi;
$x =~ s/3/ three /gi;
$x =~ s/4/ four /gi;
$x =~ s/5/ five /gi;
$x =~ s/6/ six /gi;
$x =~ s/7/ seven /gi;
$x =~ s/8/ eight /gi;
$x =~ s/9/ nine /gi;
$x =~ s/10/ ten /gi;
$y = ($x{1}[thousand]?$x{1}[hundred and]?$x{2});  


    #then I will insert all my $x into $y.

$x =~ s/$x/$y/gi; #Here i substitute again to change all number to words

#that is my idea.

print "$x";

まずは4桁用に作ってみました。成功した場合は、7 ～ 8 桁以上になるまで挿入を続行できます。