##
my $type = "";
if ($msgString =~ m/Typ\s*:\s*(\w+)/i) {
$type = $1;
$type =~ s/\r\n//g;
}#if
print "start" . $type . "end";
##
##
print "start" . $type . "end\n";
print "$type\n";
print "xxxxxxxxxxxxxxxxxxxxxxx$type\n";