my ($num, $title, $author, $flag1, $flag2) =
	unpack "A7 x1 A27 x1 A25 x1 A1 x5 A1", $str;