#!perl
use warnings;
use Benchmark;

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

Benchmark::timethese(100000, {
  blackadder => sub {	
$lunc = $unc;
$lunc =~ s/^\W*\w+//;
$server = $&;
$server =~ s/^\W+//;
},
  theorbtwo => sub {
$unc =~ m/^\\\\([^\\]+)\\/;
$server=$1;
}
});