Как регеспом в перле вставить подстроку

[Sergey2]

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

Кажется мне что вы неправильный путь выбрали для решения своей проблемы.
Скажите что вам нужно сделать. Возможно проблема другим , более простым путем решается.

нужно что бы пользователь могу зайти на страничку и ввести эти самые регеспы, без правки исходного кода.Алгоритм один и тот же, а параметры обработки текста разные.

[ssdm]

Кстати, по поводу eval.

use strict;
use warnings;

my $search="qw";
my $st="zzz";
my $str='sdfasqwe';
my $ev="\$str=~s/^(.*)\$search(.*)\$/\$st\$1\$2/;";
eval $ev;
print $str;

Работает.