Joe Bloggs,joe,Burton,joe@hotmail.com,google,80.10.10.123

##</code><code>##

#! /usr/bin/perl -T

use warnings;
use strict;

@file = `ls /var/log/cr_user`;
foreach $file {
 open(FILE, "/var/log/cr_user/$file") || die;
  @account=<FILE>;
  close(FILE);
  foreach $account {
    ($fullname, $username, $mothers, $email, $referral, $ip) = split(/,/, $account);
 
print "$fullname $username $mothers $email $referral $ip";

  }
  unlink $file;
}