(undef, @{$self->{tag}}{qw/title artist album year comment genre_num/}) = unpack('a3a30a30a30a4a30C1', $buffer);