my ($num,$title,$author,$flag1,$flag2) = unpack "A8A27A26A7A",$str;