ANTICHAT - Показать сообщение отдельно - [Perl] Новичкам: задаем вопросы

Цитата:

Сообщение от GAVVVR

Здравствуйте. Передо мной стоит задача - произвести замену в тексте следующим образом:
Есть текст с хтмл кодом. Нужно взять текст между всеми тегами и , проделать с ним ряд операций, а затем результаты вставить обратно соответственно. К примеру, было так:
A...big code...B
а нужно, чтобы получилось так:
A1...big code...B1
Подскажите, как цикл организовать? То есть чтобы скрипт обработал значение между первыми и , заменил на результат преобразований и приступил к обработке следующего участка с и .
Сделать одну такую замену у меня прекрасно получается, а вот сделать другую автоматом - нет! Не догоняю, как организоать цикл, чтбы скрипт обработал один и тот же участок 1 раз

. Помогите, пожалуйста

Код:

#!/usr/bin/perl -w
$text = '<b>A</b>...big code...<b>B</b>...big code...<b>C</b>...big code...<b>D</b>...big code...<b>E</b>...big code...<b>F</b>';
$newtext = $text;

while($text =~ /<b>(.*?)<\/b>/g) {
	$str = $1;
	#всякие действия
	$str .= '1';
	################
	$newtext =~ s/$1/$str/;
}

print $newtext;