sub person_cleanup {
	my($name) = @_;
	my $res = 0;
	$res++ if $name =~ s/^Herr\s+//;
	$res++ if $name =~ s/^Frau\s+//;
	wantarray ? ($name,$res) : $name;
}
1;
