open(FILEREAD, "</home/zzz/Desktop/Scripting/usb/musicLibrary.txt");
        while ($aPath = <FILEREAD>)
                {chomp ($aPath);
                my $file =~ s/$sPath/Totally/;
                print "This Path $file \n\n";}
close (FILEREAD);