Select Code to Download

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

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

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