my @out = ();
  while( m/(book|cover)/g ) {
    push(@out, $1);
  }
  my $newstr = join(" ", @out);