my $text = <<TEXT;

Title: The Moor's Last Sigh, Author: Salman Rushdie

Title: The God of Small Things, Author: Arundhati Roy

TEXT

my @answers;
my $re = qr/Title: (.*?), Author: (\w+) (\w+)$/; # 3 groups here
while ($text =~ /$re/mgc) {
   my %ans;
   push @answers, [ $1, $2, $3 ]; # that's the main point!
}

use Data::Dump qw(dump);
print dump(\@answers);

##</code><code>##

(
  ["The Moor's Last Sigh", "Salman", "Rushdie"],
  ["The God of Small Things", "Arundhati", "Roy"],
)

##</code><code>##

if ($text =~ /$re1/mgc) { ...
if ($text =~ /$re2/mgc) { ...
if ($text =~ /$re1/mgc) { ...
if ($text =~ /$re2/mgc) { ...

##</code><code>##

# return ($1, $2, ...) matched against $s
sub _groups {
    my $s = shift;
    my @groups;
    foreach my $i (1..$#-) {
        push @groups, substr($s, $-[$i], $+[$i] - $-[$i]);
    }
    return @groups
}

##</code><code>##

   push @answers, [ _groups($text) ]; # [ ($1, $2, ...) ]