open (FH, 'out.txt');
   print FH "start" . $type . "end"; 
 close FH;
##</code><code>##

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


##</code><code>##

print "start" . $type . "end\n";
print "$type\n";
print "xxxxxxxxxxxxxxxxxxxxxxx$type\n";