000.000.002.249-2-P  09-11-2007 15:27:30         102_Low_Alarm
000.000.002.249-2-P  09-11-2007 16:44:18         102_Low_Alarm
000.000.002.249-2-P  09-11-2007 16:44:18         202_Low_Repeat

##</code><code>##

while (<>) {
  chomp;
   my ($meter,$dt,$type) =
     ($_ =~ (\S+)   #ser no
             \s+
            (\d\d-\d\d-\d\d\d\d \d\d:\d\d:\d\d)  # 12-11-2007 13:51:30
             \s+
            (\S+)  #102_Low_Alarm
             $/x);
  ....
}

##</code><code>##

  DB<15> ($a,$b,$c)= ($line =~ m/(\S+)\s+(\d\d-\d\d-\d\d\d\d \d\d:\d\d:\d\d)\s+(\S+)$/x ) ;

  DB<16> x ($a,$b,$c)
0  undef
1  undef
2  undef

  DB<17> ($a,$b,$c)= ($line =~ m/(\S+)\s+(\d\d-\d\d-\d\d\d\d \d\d:\d\d:\d\d)\s+(\S+)$/ ) ;
  
  DB<18> x ($a,$b,$c)
0  '000.000.002.249-2-P'
1  '09-11-2007 15:27:30'
2  '102_Low_Alarm'

  DB<19> x $line
0  '000.000.002.249-2-P  09-11-2007 15:27:30  102_Low_Alarm'