--- a/williamr/sbs_findstr.pl	Wed Jun 10 17:16:09 2009 +0100
+++ b/williamr/sbs_findstr.pl	Wed Jun 10 17:17:58 2009 +0100
@@ -19,6 +19,7 @@
 my $expression = shift @ARGV;
 my $line;
 my $skipping = 1;
+my $current_target = "";
 
 @ARGV = map {glob} @ARGV;
 
@@ -35,11 +36,21 @@
     if ($line =~ /$expression/io)
       {
       $skipping = 0;
+      $current_target = "";
+      if ($line =~ /(target='[^']+') /)
+        {
+        $current_target = $1;
+        }
       }
     else
       {
       $skipping = 1;
       }
     }
-  print $line if ($skipping == 0);  
+  next if ($skipping == 1);  
+  if (substr($line,0,8) eq "<status ")
+    {
+    substr($line,-3) = "$current_target />\n";
+    }
+  print $line;
   }
\ No newline at end of file