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

[Sergey2]

Есть строка. Нужно вставить в начале строки символ, если в самой строке есть определенная подстрока (найденную подстроку удалить). Можно это сделать одним регеспом?

[Johnatan]

Что-то типа этого

PHP код:

    $a = 'abcde';
    $b = preg_replace(array('/^(.*bcd.*)$/', '/bcd/'),array('z$1', ''),$a); 


где bcd искомая строка, а z - символ который нужно добавить в начало строки.
При этом не забываем, что вот такая конструкция работает В ДВА РАЗА БЫСТРЕЕ (проверено):

PHP код:

    $a = 'abcde';
    if(strpos($a, 'bcd')) {$b = 'z'.str_replace('bcd', '', $a);} 


[arvitaly]

Вообщет человек на perl пишет

[ssdm]

Sergey2
Ну собоственно Johnatan уже решил проблему.
Только на Perl перевести все надо.
Вот пример

use strict;
my $str='adasd';
$str=~s/^(.*as.*)$/z$1/;
print $str;

Тут as искомая строка, а z -то что вставляем.

[ssdm]

use strict;
my $str='sdfasqwe';
$str=~s/^(.*)as(.*)$/z$1$2/;
print $str;

- вот правильный вариант, где as искомая строка, а z -то что вставляем.

[Johnatan]

Да, сорри. Пропустил про перл в заголовке.

[Sergey2]

спасибо огромное. А можно как-нить сделать так что бы выражения регеспа брались из переменной?
$str=~s/$search/$st/;
работает, но если в $st я пытаюсь использовать возврат результата поиска, т.е. $1, то не работает

[ssdm]

ну как вариант можно сделать так

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

Либо попробовать через eval .

[Sergey2]

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

ну как вариант можно сделать так

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

Либо попробовать через eval .

не. Нужно целиком что бы $1 были в переменной. А через евал тоже пробовал но что то не получается

[ssdm]

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