#!/usr/bin/perl
use strict;
use warnings;

my $zm = "ble ble book uff uff cover asdf asdfa ala book coverr";
$zm =  join(' ', grep {/\b(book|cover)\b/} (split / /,$zm));
print $zm;