#!/usr/bin/perl

use strict;
use warnings;

use HTML::Entities;

my $in = "Übelkeit durch Ärgerniß";
print encode_entities($in), "\n";