( $lines_1, $lines_2, $lines_3, $lines_4 ) = unpack ( "I I I I" , $lines ); # (I) An unsigned integer.