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