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