Здравствуйте, DemAS, Вы писали:

DAS> Решил сам с помощью трех substr — склейкой трех фрагментов — до $begin, $inline и после $end, но чуствую, что есть более красивый способ.

#!/usr/local/bin/perl

my $source = "before inline 123 test test 321 after inline";
my $inline = "| inline |";
my ($begin, $end) = (123, 321);

print "$source\n";
$source =~ s/($begin.+$end)/$inline/;
print "$source\n";

Не знаю насколько это изящнее, но быстрее навряд ли.. хотя для небольших строк может и ничего..