diff --git a/external-account-totals-reconcile.plx b/external-account-totals-reconcile.plx
index 14e8ac4..702d7fe 100755
--- a/external-account-totals-reconcile.plx
+++ b/external-account-totals-reconcile.plx
@@ -57,7 +57,7 @@ while (my $line = <STDIN>) {
   $line =~ s/^\s*//;   $line =~ s/\s*$//;
 
   next unless $line =~
-    /^\s*(\S+\:.+)\s+[\(\d].+\s+\(?\s*([\d\.\,])+\s*\)?\s*$/;
+    /^\s*(\S+\:.+)\s+[\(\d].+\s+\(?\s*([\d\.\,]+)\s*\)?\s*$/;
   my($acct, $value) = ($1, $2);
   $acct =~ s/^\s*//;   $acct =~ s/\s*$//;