use strict;
my $inputDirectory = '"\\\\10.81.253.70\\file data\\query files"';
# need to dublicate each \ in string
$inputDirectory =~ s|\\|\\\\|g;
my @lines = `net use`;
foreach my $line ( @lines ) {
    next unless $line =~ m|$inputDirectory|;
    $line =~ /(^\S+)/;
    print $1;
}