Select Code to Download

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

unpack_fields(
    $str,
...
    padding     => 5,
    \my $flag2  => 1,
);