use strict;
use warnings;

my $regex = '\default\main\TSDEMO\WORKAREA\tsdemo_intranet\TSDEMO\images\corner';
my $website = 'TSDEMO';

my $parent = substr($regex, rindex($regex, $website));
print $parent;