$text =~ s/.*?\b(book|cover)\b/$1/g;