title: How can I match the svnlook output in Perl?
body: <p>I'm running SVN on a Windows server, and I'm using Perl scripts to implement some pre-commit hooks. I'm seeing the following error message from TortoiseSVN:</p>
  
  <blockquote>
    <p>Error !!ScriptError!! Can't parse
    line: _U path/to/files/trunk</p>
  </blockquote>
  
  <p>and this is the script:</p>
  
  <pre><code>foreach my $line (`$svnlook changed -t "$txn" "$repos"`)
  {
    chomp($line);
    if ($line !~ /([AUD]).\s\s(.+)$/)
    {
      print STDERR "!!Script Error!! Can't parse line: $line\n";
      exit(1);
    }
    else
    {
       # perform some actions 
    }
  }
  
  exit(0);
  </code></pre>
  
  <p>I tried replacing the regex with things like <code>/_([AUD]).\s\s(.+)$/</code> with no sucess - I even tried <code>/.*([AUD]).\s\s(.+)$/</code>.</p>
  
  <p>Thoughts? Suggestions?</p>