use strict;
use warnings;
use Data::Dumper;

my $test =<<HERE;
Title: The Moor's Last Sigh
Author: Salman Rushdie
Publisher: Foo

asdf
asdf
asdf a d
f 
d a
sf 
as 


Title: The God of Small Things
Author: Arundhati Roy
Publisher: Bar
HERE

my @lines = split /\n/, $test;

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

my @answers;
my $book;

for my $line (@lines) {
	if ($line =~ /$re_title/) {
	    #if this is a title line then the previous book is done being scanned
		# so push the previous book onto answers and and clear out %book
		push @answers, $book if $book;
		$book = {};
		$book->{title} = $1;
	} elsif ($line =~ /$re_author/) {
		$book->{author} = [ $1, $2 ];
	} elsif ($line =~ /$re_publisher/) {
		$book->{publisher} = $1;
	}
}
#push the final book
push @answers, $book;
print Dumper(\@answers);