(undef, $var, $val) = split /\s+/, $raw, 3;
printf '%s=%s', $var, $val;

# prints book_num=a13