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