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 = ) { /^\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); }