From e868e62f7883b6a8c8786fbb8ab75cc32022e6d4 Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Mon, 19 Dec 2011 11:36:44 -0500
Subject: [PATCH] Main regex did not fully get rid of extraneous material.

---
 external-account-totals-reconcile.plx | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/external-account-totals-reconcile.plx b/external-account-totals-reconcile.plx
index 702d7fe..5e54173 100755
--- a/external-account-totals-reconcile.plx
+++ b/external-account-totals-reconcile.plx
@@ -60,7 +60,7 @@ while (my $line = <STDIN>) {
     /^\s*(\S+\:.+)\s+[\(\d].+\s+\(?\s*([\d\.\,]+)\s*\)?\s*$/;
   my($acct, $value) = ($1, $2);
   $acct =~ s/^\s*//;   $acct =~ s/\s*$//;
-
+  $acct =~ s/\s{3,}[\(\)\d,\.\s]+$//;
   $externalBalances{$acct} = ParseNumber($value);
 }