[PERL] Skrypt zmieniający słowo na s*ł*o*w*o

[tomiskym]

Witam ponownie, mam takie zadanie. Ale nie chce mi zadziałać mój program. Na pewno coś przekombinowałem. Proszę o pomoc.

Napisz program, który umieści pomiędzy kolejnymi znakami łańcucha
gwiazdki. Na przykład, jeśli łańcuch znaków miał postać dysk, to po
przekształceniu ma przyjąć postać: d*y*s*k. Łańcuch poddawany
modyfikacji ma być podawany w trakcie działania programu. Łańcuch
zmodyfikowany należy wyświetlić na ekranie monitora.

#!/usr/local/bin/perl
print "Podaj ciąg znaków: ";
$string = <STDIN>;
chomp $string;


@lista = split('\s|\S+', $string);
$string = join('*', @lista);


print "$string\n";

[tomiskym]

Poradziłem sobie.

#!/usr/local/bin/perl
print "Podaj ciąg znaków: ";
$string = <STDIN>;
chomp $string;


@lista = split(//, $string);
$string = join('*', @lista);


print "$string\n";