my $search_string = 'ect';
foreach $title (keys %$books) {
    print $books->{$title} if $title =~ /$search_string/i;
}