while (! eof inFile)
  {
  $line .= ' ' . <inFile>;
  chomp $line;
  next if ! ($line =~ /data\sto\s(.*?)\s+/i) and ! eof inFile;