Looks like you're parsing email messages. Have you considered using Email::Simple?

Alternatively, you could change your code to something like this (untested):

if ($line =~ m/^To:\s+(\S+)/i) {
  $to = $1;
  print "To is: $to\n";
}
[download]