unpack_fields(
	$record,
	\my $num    => 7,
	padding     => 1,
	\my $title  => 27,
	padding     => 1,
	\my $author => 25,
	padding     => 1,
	\my $flag1  => 1,
	padding     => 5,
	\my $flag2  => 1,
);