Regulärer Ausdruck

[Frank Schönmann]

hi!

use locale;
  $text =~ s([aAoOuU])eucfirst chr(ord($1)+135-4+(int(ord(lc$1)/(ord((ord(lc$1)>ord("U"))?"a":"A")+1))*4))eg;

Ups, da hab ich wohl einen Denkfehler begangen. Das funktioniert natürlich so nicht. Wenn aber einer
trotzdem eine Lösung hat, darf er sie gerne posten ;)

bye, Frank!