'\\pcname-vm\c$\program files\adobe'

##</code><code>##

"\\\\pcname-vm\\c$\\program files\\adobe" 

##</code><code>##

"//pcname-vm/c$/program files/adobe"

##</code><code>##

use strict;
use warnings;

my $directory = "//pcname-vm/c$/program files/adobe";

open(NDIR, $directory) or die "Error: $!";

my @folders;

while (my $filename = readdir(NDIR)) {

   # skip the . and .. directories
   next         if ($filename =~ /^.+$/); 

   my $folder   = "$directory/$filename";

   # skip if not a directory
   next         if (! -d $folder); 

   push(@folders, $filename);

}

close(NDIR);

foreach (@folders) {
  
   print "$_\n";

}