my $bar = $foo =~ tr/"/"/;