while (<$fh>){
  next unless /\S/; # skip blank lines
  s/"//g; # remove all "

##</code><code>##

  if (/STATUS\s+Acct:"?(\d+)/){
    $acct = $1;
  }