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

while ( my $dataset = <DATA> ) {
        chomp $dataset;
        my ( $anrede, $titel, $vorname, $nachname ) = split m/;/, $dataset;

        # $anrede kann sein: Herr, Frau oder leer (bzw. alles andere wird wie leer gewertet)
        $anrede = $anrede eq 'Frau' ? "Sehr geehrte Frau"  :
                  $anrede eq 'Herr' ? "Sehr geehrter Herr" :
                                      'Sehr geehrte Damen und Herren';
        
        my $name = defined($titel) ? "$titel $nachname" : $nachname;

        print "$anrede $name\n";        
}


__DATA__
Herr;;Fritz;Mueller
Frau;Dr.;Liese;Meier
;;;