if (@groups = $text =~ /Title: (.*?)$/mgc) {
        $book{title} = $1;
    }