use strict;
use warnings;


my $a = "bbzvbvxmgbnmnvxyyz";
my @all = $a =~ m/([zvxg])/g;
print "@all\n";

@all = $a =~ m/([zvxg]+)/g;
print "@all\n";

__END__ # OUTPUT FOLLOWS
z v v x g v x z
zv vx g vx z