(my $artist_qfix= $artist) =~ s['][\\']g;
print $artist_qfix;