in reply to Obtaining server name from UNC path

    ($server) = $unc =~ /^\\([^\\]+)/;

[download]
Abigail

In Section Seekers of Perl Wisdom