while (my $line = <LOG>) {
    if ($line =~ /$error/i) {
    etc....