$ perl -MHTML::Entities -e'print encode_entities(q(I have a 15" latter and a 6" foot arm.))'
I have a 15" latter and a 6" foot arm.$