sub test {
    my $s = shift;
    if ( $s =~ /[^xyz]/ ) {
        print "$s contains non-xyz characters.\n";
        return;
    }
    print "$s does not contain non-xyz characters.\n";
}