#!/usr/bin/perl
$logfile="/var/log/messages";
open(LOG,$logfile) or die "Unable to open logfile:$!/n";
while(<LOG>){
print if //berror/b/i;
}
close(LOG);
$logfile="/var/log/messages";
open(LOG,$logfile) or die "Unable to open logfile:$!/n";
while(<LOG>){
print if //berror/b/i;
}
close(LOG);