#! /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
;;;