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);
  ....
}