my $first = substr $line, 0, 2;
my $second = substr $line, 2, 4;
my $third = substr $line 10, 4;