Help for this page

Select Code to Download


  1. or download this
    $ 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.$
  2. or download this
    use HTML::Entities;
my $str = q("I have a 15" latter and a 6" foot arm.");

...

__END__
"I have a 15" latter and a 6" foot arm."
  3. or download this
    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."