Mozna jeszcze prosciej... najpierw Wasz kod...

Kod:
$message = "wiadomosc (test, lol, ble, asd, dsa) testowa";
for($i=0; $i <= $#slowa; $i++)
{
  $message =~ s/$slowa[$i]/****/g;
}
print $message."\n\n";
musi byc zapisane jako <= bo $#slowa zwraca ilosc elementow pomniejszona o 1 - to po prostu numer ostatniego elementu na liscie, wiec majac 5 elementow $#lista ma wartosc 4...

a calosc mozna jeszcze prosciej

Kod:
@slowa = ("lol", "ble");
$message = "wiadomosc (test, lol, ble, asd, dsa) testowa";
map { $message =~ s/$_/****/g } @slowa;
print "$message\n\n";
Perl Power - TIMTOWTDI