use strict;
use warnings;

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

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