DB<1> $string = 'Tetsing " code implementationm';

  DB<2> $result = $string =~ tr/"//;

  DB<3> p $result
1
  DB<4> p $string
Tetsing " code implementationm