http://qs321.pair.com?node_id=873661


in reply to Re: find & replace a string in perl
in thread find & replace a string in perl

i'd try
s/^(.*?)test(.*)$/"#$1"."test$2"/e

[download]

In Section Seekers of Perl Wisdom