my ($first, $second, $third) = (unpack "A2A4A4A4", $line)[0,1,3];

# Or, you could do ...

my ($first, $second, $third) = ($line =~ /(.{2})(.{4})(.{4})(.{4})/)[0,1,3];