What are you trying to accomplish with your $size == length( $data ) check?

Verifying that the entire file was read?

read is supposed to be returning a count of characters returned, which should always match the length. From your description you are getting a byte count instead?

What perl version are you using?

Are you using CORE::read or are you doing something to override it?