$string .= '"';
# or
substr $string, length $string, 0, '"';
# or
$string =~ s/$/"/;