#!/usr/bin/perl -w
use strict;

my $DAT = <<"EOF";
Herr;xx;xx;xx
Frau;xx;xx;xx
;xx;xx;www
nix;xx;xx;xxx
unbekannt;xx;xx;xx
EOF

my $Anrede={"Herr" => "Sehr geehrter Herr",
            "Frau" => "Sehr geehrte Frau",
            "nix"  => "Sehr geehrte Damen und Herren"};

foreach my $line(split("\n",$DAT)){
   if(my @tmp=split(";",$line)){
      if(scalar(@tmp) eq 4){
         my $Titel=$Anrede->{'nix'}; # default Anrede
         if (defined($Anrede->{$tmp[0]})){
            $Titel=$Anrede->{$tmp[0]}; 
         }
         printf("%s %s %s %s\n",$Titel,$tmp[1],$tmp[2],$tmp[3]);
      }else{
         printf("Fehlerhafte Daten: $line\n"); 
      }
   }else{
      printf("Fehlerhafte Daten: $line\n"); 
   }
}