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