use strict;
 use warnings;
 
 my $regex = "\\default\\main\\TSDEMO\\WORKAREA\\tsdemo_intranet\\TSDEMO\\images\\corner";
 my $website = "TSDEMO";
 $regex =~ m/($website.*)(?=\\$website)/gi;
 my $parent = $';
 print "$parent\n";