Perl regexp

Поиграться с "жадностью" регекспов (не знаю насколько это возможно в Perl) || использовать XSLT

А то как же, есть конечно. х+? это нежадный х+

> Поиграться с "жадностью" регекспов (не знаю насколько это возможно в Perl)

ЛОЛ!

Извините, вырвалось.

1. |(<table[^>]*>)(<tr>.+?</tr>)|$1<thead>$2</thead>|g
2.поигратся с (?=<thead>)    (A zero-width positive lookahead assertion)

[^>]* - хорошая конструкция вместо .*?

С первым вопросом разобрался.

Можно ли из длинной строки выбрать нужную часть <thead>.*</thead>,
а потом в этой части строки сделать s/td/tr/ ?

В одну команду несколько действий нельзя включать?

Что не так?

Сделал так:
$line =~ m/<thead>.*</thead>/i;
my ($line1,$line2,$line3) = ($`,$&,$');
$line2 =~ s/td/th/ig;
$line = $line1 . $line2 . $line3;

если я правильно понял исходную структуру документа (т.е. «[текст]<thead>[много текста с “td”]<tr[парамз]><td[парамз]>th</td></tr>[ещё текст]»), то можно как-то так:

perl -e '$_=join"",<>;s|<thead>(.*?)<tr[^>]*><td[^>]*>th</td></tr>|"<thead>".(($t=$1)=~ s!td!th!gms,$t)."</thead><tbody>"|gems;print' my.html

я б смотрел бы в сторону HTML::Parser