my @output = `svn log -q -r HEAD:{2011-01-01} ~/development/octave-forge/`;
my %names;
foreach (@output) {
  next if '-' eq substr $_, 0, 1;
  $_         =~ m/^r\d+\s+\|\s+((\w|\-)+)\s+/i;
  $names{$1} = 1;
}
say join ("\n", sort keys %names);