#!/usr/bin/perl
use strict;
use warnings;

my $prevline;
while (<>) {
    if(/ALARM:/) {
        print $. - 1, ": $prevline" if defined $prevline;
        print "$.: $_";
    }
    $prevline = $_;
}