#!/usr/bin/perl

foreach $f (@ARGV) 
	{ 
	open F, "svn log $f |"; 
	while(<F>)
		{
		next unless /^r/;  
		/^(r\d+)\s+\|\s+(.*?)\s+\|/; 
		print "$f $1 $2\n"; 
		last
		}
	close F or do { $! = $? >> 8; warn "Could not read $f: $!" };
	}

##</code><code>##

$ svn-who Chap*/*.pod
...
Chapters/16.tied_variables.pod r137 brian
Chapters/17.modulinos.pod r130 brian
Chapters/18.bit_vectors.pod r137 brian
Chapters/19.foriegn_relations.pod r137 brian