Select Code to Download

my $book_regex = qr/^Book ref #(\d+)/; # (\d+) will capture the ref in
+to $1
my ($ref, $title, ...);
...
    # other regexes for title, etc.
}
# now you can use $ref and $title