my $nr_slash = $include =~ tr/\\//; my $share = join( '\\', (split /\\/, $include)[0..3]); my $path = '\\' . join( '\\', (split /\\/, $include)[4..$nr_slash]);