open my $fh => $file or die "Failed to open $file: $!\n";
my $last = "";
while (<$fh>) {
    print "$last$_" if /ALARM:/;
    $last = $_;
}
close $fh;