#!/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;
[download]

PerlMonks lovingly hand-crafted by Tim Vroom.
PerlMonks somehow became entangled with The Perl Foundation.
Speedy Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.