#!/usr/bin/perl

$file = shift;

open(LOG, $file) or die "Couldn't open $file: $!\n";
local $/ = "cisco.com\n";
while (<LOG>) {
        print "================BLAH================\n$_\n";
}

close(LOG);