use strict; use warnings;
my $regex = "\\default\\main\\TSDEMO\\WORKAREA\\tsdemo_intranet\\TSDEMO\\images\\corner";
my $website = "TSDEMO";

$regex =~ /(.*)($website)(.*?)(\2.*)$/g;

my $parent = $4;

print "$parent\n";