#!/usr/bin/perl
use strict;
use warnings;

while (1) {
    print "Geben Sie Wörter mit \"\ä\" ein:\n";
    my $text = <>;
    last if $text eq "\n";      # Abbruch, wenn keine Eingabe

    $text =~ s/ä/ae/g;          # alle ä durch ae ersetzen
    print $text;
}