#!/usr/bin/perl

use strict; use warnings;

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