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'