Re: regexp everything except

[uksza]

Hello!
Hmm... Is it goot enougth?

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

greets
uksza

Update (\b) thanks Zaxo