#!/usr/bin/perl -w
use strict;
$|++;

use FileHandle;
my $FILE = new FileHandle;

open($FILE,"<","/var/log/$ARGV[0]") or die "ERROR: can't open file! $!
+";

my $pattern = 'fw1';
my (%parsed, $i);

while(<$FILE>){
    if(/$pattern/i && $i++){
        my $z=0;
        my $out="";
        chomp $_;
        @new=split(/[0-9][0-9]:[0-9][0-9]:[0-9][0-9]/,$_);
                foreach $piece (@new){
                $z++;
                chomp $piece;
                $out.="$piece";
                }
        @new=split(/service/,$out);
        $out=$new[0];
        print "$out\n";
    }
}
close($FILE);
[download]