$Uni  =~ tr/"//;       # trailing 'd' has no meaning here
    $line =~ tr/"//;       # this deletes all " characters

##</code><code>##

$s = '"bill","1","fred"';;

$s =~ tr["][];;
print $s;;
"bill","1","fred"

$s =~ tr["][]d;;
print $s;;
bill,1,fred