$unc = '\\server_name\sys_share';
$unc =~ s/^\W*\w+//;
$server = $&;
$server =~ s/^\W+//;