use HTML::Entities;
my $str = q("I have a 15" latter and a 6" foot arm.");
substr($str, 1, -1) = encode_entities substr($str, 1, -1), q(");
print $str, $/;
__END__
"I have a 15" latter and a 6" foot arm."