meinte eher sowas:
$replace = q/"$1$2$3"/;
s/..../$r/ee;