$VAR1 = "\\/Volumes\\/public_files\\/music\\/The\\ Lexicon\\ Of\\ Love\\/4\\.Tears\\ Are\\ Not\\ Enough\\.mp3\\\r";

##</code><code>##


open(my $fh2, '<:encoding(UTF-8)',$playlistName)
                or die "Could not open playlist file '$playlistName $!";
        while( my $playListRow = <$fh2>){
                chomp $playListRow;

                 if($playListRow =~  /^\s*#/){
                        next;}
                else{
                    # print "$playListRow\n";
                $playListRow = quotemeta($playListRow);
                my $lscom = "ls $playListRow 2>&1";