#!/usr/bin/perl
my $test='\\\\server\\share//folder/subfolder';
my ($share,$dir) = split(m!//!, $test);
print $share, " .. " , $dir;
__END__
\\server\share .. folder/subfolder