#!/usr/bin/perl

use warnings;
use strict;
my @a = <DATA>;
my @b = grep(/false/, @a);
chomp(@b);
for (my $i=0; $i <= $#b; $i++) {
    print $i + 1;
    print ". ";
    print "$b[$i]\n";
}


__DATA__
            2015.07.23  16:47:23
                          false,    false,       true,      false,    true,    false,
                  defau,  ame_a,    ame_m,       ame_uc,     ame_f,    ams_l,  en_affi,
            true  DPA01,  fault,    fault,       fault,      fault,    fault,      1,
            false DPA02,       ,         ,            ,           ,    fault,      1,
            true  DPA03,  fault,    fault,         olt,      fault,    fault,      1,
            false DPA01,  fault,       at,       fault,          2,    fault,      1,
            false DPA02,       ,         ,            ,           ,    fault,      1,
            true  DPA03,  fault,    fault,         olt,      fault,    fault,      1,