use warnings 'all';
use strict;

use Benchmark 'cmpthese';

$::unc = '\\\\server_name\\sys_share';

cmpthese -5 => {
    blackadder => 'my $tmp =  $::unc;
                      $tmp =~ s/^\W*\w+//;
                      $server = $&;
                      $server =~ s/^\W+//;',
    theorbtwo  => '$::unc =~ m/^\\\\\\\\([^\\\\]+)\\\\/;  # Urgle.
                   my $server = $1;',
};
__END__

Name "main::unc" used only once: possible typo at bench line 6.
Benchmark: running blackadder, theorbtwo for at least 5 CPU seconds...
blackadder:  5 wallclock secs ( 5.08 usr +  0.00 sys =  5.08 CPU) @ 76238.39/s (n=387291)
 theorbtwo:  6 wallclock secs ( 5.07 usr +  0.00 sys =  5.07 CPU) @ 97024.65/s (n=491915)
              Rate blackadder  theorbtwo
blackadder 76238/s         --       -21%
theorbtwo  97025/s        27%         --