my (undef, $name, undef, $size) = split /\t/;