foreach (<LOG>) {
  if ($_ =~/CRITICAL/) {
  print $_;
}