[Habetdin]

Тишина, смотреть на codepad:

Код:

#!/usr/bin/perl

$tag = 'div';
sub translit{
 return "Kina ne budet, translit ne zavezli";
}

$str = "beliberda\nbeliberda... <$tag>замени меня, трамвай!</$tag>\nhello\nlook: <$tag>еще один подлежащий\nзамене текст</$tag>";
print "Original: (multiline)\n$str\n\n";

$str =~ s/(<${tag}>)(.*?)(<\/${tag}>)/$1.translit($2).$3/egs;
print "Result:\n$str\n";

Original: (multiline) beliberda beliberda... <div>замени меня, трамвай!</div> hello look: <div>еще один подлежащий замене текст</div> Result: beliberda beliberda... <div>Kina ne budet, translit ne zavezli</div> hello look: <div>Kina ne budet, translit ne zavezli</div>