my $text = THE EXAMPLE TEXT ABOVE ...
my $re_title = qr/Title: (.*?)$/;
my $re_author = qr/Author: (\w+) (\w+)$/;
my $re_publisher = qr/Publisher: (.*?)$/;

my @answers;
{
    my %book;
    if ($text =~ /$re_title/mgc) {
        $book{title} = $1;
    }
    if ($text =~ /$re_author/mgc) {
        $book{author} = [ $1, $2 ];
    }
    if ($text =~ /$re_publisher/mgc) {
        $book{publisher} = $1;
    }
    push @answers, \%book;
}
{
    my %book;
    if ($text =~ /$re_title/mgc) {
        $book{title} = $1;
    }
    ...