$var =~ m/...\1.../;
$var =~ s/...\1.../...$1.../;