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

##</code><code>##

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