Select Code to Download

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

zvvxgvxz

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