#!/usr/bin/perl
use HTML::Entities;
my $input = <<EOM;
“And all was well with the ‘ol’ world!”
drüben, Straße
EOM
print encode_entities($input);
exit;