my @array= unpack 'a1a20a20a5', $line;