#!/usr/bin/perl

# http://perlmonks.org/?node_id=1169858

use strict;
use warnings;

while(<DATA>)
  {
  s/\s{3,7}/,/g;
  print;
  }

__DATA__
12345   DOE,JOHN   $50.00   REFUND   COMPLETE
12345   DOE,JOHN   $25.00   DENIED   COMPLETE
12345   DOE,JOHN   $75.00            COMPLETE
12345   DOE,JOHN   $10.00   REFUND   COMPLETE
[download]