#!/usr/bin/perl
open (FILE,"</var/log/messages") || die 'Unable to open log file';
open (TMP, ">/tmp/messages.csv") || die 'Unable to write to file';
while (<FILE>) {
$_ =~ s/\s{1,6}/,/;
print TMP $_;
}