--- bitlbee_rename.pl.orig	2010-02-11 21:24:58.000000000 +0100
+++ bitlbee_rename.pl	2010-03-14 21:18:23.000000000 +0100
@@ -42,6 +42,7 @@
 
     my $ircname = substr($data, index($data,':')+1);
 
+    $ircname =~ tr/\301\341\311\351\315\355\323\363\326\366\325\365\332\372\334\374\333\373/AaEeIiOoOoOoUuUuUu/;
     $ircname =~ s/[^A-Za-z0-9_]//g;
     $ircname = substr( $ircname, 0, 25 );