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