use feature qw(say);
while (<TESTFILE>){
   next if !~ m/^To\s*=\s*(.*)/;
   say "To = <$1>";
}