Select Code to Download

open (FH, 'out.txt');
   print FH "start" . $type . "end"; 
 close FH;

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

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