Select Code to Download

$string = '"testing the data available';
print scalar ($string =~ tr/"//), "\n";
$string .= '"' if ($string =~ tr/"//) % 2;
print ($string =~ tr/"//);