use strict;
use warnings;
my $a = "bbzvbvxmgbnmnvxyyz";
my @all = $a =~ m/([zvxg])/g;
print @all;


##</code><code>##

zvvxgvxz


##</code><code>##

use strict;
use warnings;
my $a = "bbzvbvxmgbnmnvxyyz";
$a =~ s/[^zvxg]//g;
print $a;