#!/usr/bin/perl
use strict;
sub test($);

test 'a';
test 'z';
test 'xyz';
test 'az';

sub test($) {
    my $s = shift;
    print $s =~ /[xyz]/ ? "$s matches\n" : "$s does not match\n";
}