$var =~ m/...\1.../; $var =~ s/...\1.../...$1.../; [download]
In reply to Re^2: regular expression question by ikegami in thread regular expression question by Anonymous Monk