if (/Datasource:/) { 
   print "\n\n", $_, "\n"; 
   push @log, $_;
}