Приветствую.

Как правильно написать следующий фрагмент?

my $whore = '#'; $whore =~ s/#//;   # сброс значения $&

$string =~ s/поиск 1/замена 1/    if $& eq '#';
$string =~ s/поиск 2/замена 2/    if $& eq '#';
$string =~ s/поиск 3/замена 3/    if $& eq '#';
$string =~ s/поиск 4/замена 4/    if $& eq '#';

прочитал вопрос 3 раза, но так и не понял, что требуется. Опишите подробнее