#! /usr/bin/perl
print "Geben Sie Wörter mit \"\ä\" ein:\n";

while (defined ($d = getc STDIN)) {

if ($d eq "ä"){
        print "ae";
}
else {
        print "$d";
}
}