#!perl.exe

my $filename="out.txt";

if (-r $filename) {

  open(FILE,$filename);
  while(<FILE>) {
    chomp;

    if (/^(.*)Datasource:/) { print "\n\n", $_, "\n"; }

    if (/^(.*)Passed:/) { $section="passed"; next; }
    elsif (/^(.*)Failed:/) { $section="failed"; print $_, "\n"; next; }
    elsif (/^(.*)Exception:/) { $section="except"; print $_, "\n"; next; }

    if ($section ne "passed") {
      if (/(^(.*)test\.)|(^(.*)Summary:)/) { print $_, "\n"; }
    }
  }
  close(FILE);

} else {
  print("cant read file ",$filename,"\n");
}