Замена цифр в тексте числительными

#!perl
 
use strict;
 
my ($txt,%chisla);
 
%chisla = ('1'=>'один ','2'=>'два ','3'=>'три ','4'=>'четыре ',
    '5'=>'пять ','6'=>'шесть ','7'=>'семь ','8'=>'восемь ',
    '9'=>'девять ','0'=>'ноль ');
 
$txt = '4321 после 8765 приводит к 091';
print $txt, "\n";
 
$txt =~ s/([0-9])/$chisla{$1}/g;
$txt =~ s/\s+/ /g; # убираю двойные пробелы
print $txt, "\n";

#!/usr/bin/perl -w
use strict;
use Tk;
use utf8;
 
my $input = '0';
my @digits = ( 'ноль', 'один', 'два', 'три', 'четыре', 'пять', 'шесть', 'семь', 'восемь', 'девять' );
 
my $mw = MainWindow->new();
my $lbl = $mw->Label(
    -text => 'Введи цифры, нажми кнопку'
)->pack();
my $entr = $mw->Entry(
    -textvariable => \$input
)->pack();
my $btn = $mw->Button(
    -text => 'Кнопка',
    -command => sub {
        my $msg = "";
        if ( $input =~ /\D/ ) {
            $msg = 'В словосочетании "Введи цифры" какая часть непонятна?';
        }
        else {
            foreach ( split //, $input ) {
                $msg .= "$digits[$_] ";
            }
        }
        $mw->messageBox(-message => $msg);
    }
)->pack();
 
MainLoop;