# benchmark saw ampersand -- BlackAdder
use strict;
use warnings;
use Benchmark qw(timethis);
use Data::Dumper;

my $count=$ARGV[0] || -1;
my $unc  =$ARGV[1] || '\\\\server_name\\sys_share';
print "Matching $unc for $count\n";
print Dumper(timethis($count,sub {
				  my $lunc = $unc;
				  $lunc =~ s/^\W*\w+//;
				  (my $server = $&)=~ s/^\W+//;
				  $server
				  },'blackadder'
));