Re^2: find & replace a string in perl

[iefbr14]

i'd try

s/^(.*?)test(.*)$/"#$1"."test$2"/e