Hi there!

I really Need help!

In a nutshell: The output here:

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

Some more details:

I receive an email via Mail::IMAPClient and store the message in one single scalar variable. Thereafter, use some RegEx to find several pieces of text.

The RegEx look like this:

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

This should give me:

start orange end

This works on a couple of text pieces I am after but on some the console output is screwed up and looks like this:

start range

As you can see, the first letter is missing and the final "end" string is not printed at all.
I even tried something like this and could believe my eyes:

print "start" . $type . "end\n";
print "$type\n";
print "xxxxxxxxxxxxxxxxxxxxxxx$type\n";
[download]

Console output:
xxxxxxxxxxxxxxxxxxxxxx
endrange

And keep in mind: When I write to a file, I get exactly what everbody would expect.
Any ideas?
PS: Perl 5.8.8 for MSWin32