Hi guys, Had this issue which is somewhat foxing me... there are two stages to this issue.

Stage 1) I will take a input for a name from a user, I wish to apply a regex to validate that the name is what I would consider a name, so all chars A-Za-z, a space, a . etc... however I also need to accept accented characters like åäöüíìóòúùñÑéèáàêëûãç_öüæøÅÄÖÉØÁÜÆØâîÂÎ... I even tried this in the regex but sometimes it fails... I think this is something to do with how the file is saved... my test scripts dont work properly... so is there a better way of doing this ?

Stage 2) I need to replace the accented chars with non accented equivalent (as the mainframe they eventually end up in do not accept them. I have used several regex's like

    my $t = shift;
    $t =~ s/(ä|Ä)/AE/g; #Ä
    $t =~ s/(ö|Ö)/OE/g; #Ö
    $t =~ s/(ü|Ü)/UE/g; #Ü
    $t =~ s/(ß)/SZ/g; #ß
    $t =~ s/(å|á|æ|â)/a/g; #ä|å|á|æ
    $t =~ s/(ø)/o/g; #ö
    $t =~ s/(é)/e/g; #é
    $t =~ s/(î)/i/g;#î
    $t =~ s/(Î)/I/g;#Î
    $t =~ s/(Å|Á|Æ|Â)/A/g;#Å|Ä|Á|Æ
    $t =~ s/(Ö|Ø)/O/g;
    $t =~ s/[^a-z0-9\,\.\s\/\-\@\:]//ig;
    return $t;
[download]

Any tips in solving this greatly appreciated.