$string =~ y/"//d

##</code><code>##

$ perl -E 'my $x = q{"654321_1111"}; say $x; $x =~ y/"//d; say $x'
"654321_1111"
654321_1111