...because \1 (etc) is strictly for regexps. The replacement expression uses $1 (etc).

$var =~ m/...\1.../;
$var =~ s/...\1.../...$1.../;
[download]