in reply to Substitution Question

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

artist