To retrieve everything after the Nth occurence, you could do something like this:

#!/usr/bin/perl

use strict; use warnings;

my $regex = "\\default\\main\\TSDEMO\\WORKAREA\\tsdemo_intranet\\TSDEM
+O\\images\\corner";
my $n = 2;
my $website = "TSDEMO";
1 while $regex =~ m/(?=$website)/g && --$n;
my $parent = $';
print "$parent\n";
[download]