Use of uninitialized value $fields[2] in pattern match (m//) at C:\test\1005623.pl line 56.
Use of uninitialized value $fields[3] in pattern match (m//) at C:\test\1005623.pl line 64.