Парсер syslog на Perl

#/usr/bin/perl -w 
$x=10000;
while ($x > 0) {
open(SYS, "/var/log/syslog") || die "/var/log/syslog not found!";
#Отслеживаем монтирование:
while (<SYS>) { ($month, $day, $time, $hname, $service, $action, $device) = split(' ');

if ($service eq "hald:" || $action eq "mounted") {
print "==================MOUNTING=====================\n";
print "месяц: $month\n";
print "день: $day\n";
print "время: $time\n";
print "имя хоста: $hname\n";
print "демон: $service\n";
print "действие: $action\n";
print "Устройство $device смонтированно\n";
print "=================FILNAL MOUNTING===============\n";
}

#Отслеживание размонтирования:
if ($service eq "hald:" || $action eq "umounted") {
print "=================UMOUNTING====================\n";
print "месяц $month\n";
print "день  $day\n";
print "время $time\n";
print "имя хоста: $hname\n";
print "демон: $service \n";
print "действие: $action\n";
print "устройство: $device\n";
print ("Устройство $device размонтированно $day $time на хосте $hname\n\n");
print "================FINALL UMOUNTING==============\n";
                                                }
}
close(SYS);
$x=$x-1;
print "\nосталось: $x\n";
sleep 1;

}

open(SYS, "tail -4 /var/log/syslog |")

if ($service eq "hald:" || $action eq "mounted") 

#/usr/bin/perl -w 
$x=100;
while ($x > 0) {
open(SYS, "/var/log/syslog") || die "/var/log/syslog: $!";
#Отслеживаем монтирование:
while (<SYS>) { ($month, $day, $time, $hname, $service, $action, $device) = split(' ');

if ($service eq "hald:" && $action eq "mounted") {
print "==================MOUNTING=====================\n";
print "месяц: $month\n";
print "день: $day\n";
print "время: $time\n";
print "имя хоста: $hname\n";
print "демон: $service\n";
print "действие: $action\n";
print "Устройство $device смонтированно\n";
print "=================FILNAL MOUNTING===============\n";
}

#Отслеживание размонтирования:
if ($service eq "hald:" && $action eq "umounted") {
print "=================UMOUNTING====================\n";
print "месяц $month\n";
print "день  $day\n";
print "время $time\n";
print "имя хоста: $hname\n";
print "демон: $service \n";
print "действие: $action\n";
print "устройство: $device\n";
print ("Устройство $device размонтированно $day $time на хосте $hname\n\n");
print "================FINALL UMOUNTING==============\n";
                                                }
}
close(SYS);
$x=$x-1;
print "\nосталось: $x\n";
sleep 1;


}

Jul  4 16:27:51 sprogrammer hald: unmounted /dev/sdf1 from '/media/KINGSTON' on behalf of uid 1000
Jul  4 16:28:01 sprogrammer hald: mounted /dev/sdb1 on behalf of uid 1000
Jul  4 16:28:07 sprogrammer hald: mounted /dev/sdf1 on behalf of uid 1000

#!/usr/bin/perl

use strict;
use warnings 'all';

#open my $fh, 'tail -4 /var/log/messages |' or die $!;
open my $fh, '/var/log/messages' or die $!;
while (<$fh>) {
    print "device '$6' ${5} ($1 $2 $3 @ $4)\n"
        if /^(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+hald:\s+((?:un)?mounted)\s+(\S+)/;
}

#!/bin/bash

count = $1
log = $2
tail -"$count" "$log" |
while read line 
do
        text=""
        array=( $line )
        if [ "${array[4]}" = "hald:" ]; then
                text=$text"месяц: ${array[0]}\n";
                text=$text"день: ${array[1]}\n";
                text=$text"время: ${array[2]}\n";
                text=$text"имя хоста: ${array[3]}\n";
                text=$text"демон: ${array[4]}\n";
                text=$text"действие: ${array[5]}\n";

                if [ "${array[5]}" = "mounted" ]; then
                        text="==================MOUNTING=====================\n"$text
                        text=$text"Устройство ${array[6]} смонтированно\n";
                        echo -e $text"=================FILNAL MOUNTING===============\n"
                elif [ "${array[5]}" = "mounted" ]; then
                        text="==================UMOUNTING=====================\n"$text
                        text=$text"Устройство $device размонтированно ${array[1]} ${array[2]} на хосте ${array[3]}\n\n"
                        echo -e $text"=================FILNAL UMOUNTING===============\n"
                fi
        fi
done

elif [ "${array[5]}" = "umounted" ]; then