I prefer this $x =~ /^[x-z]$/i; Normally, I will use: my $ans = ( $x =~ /^[x-z]$/i )?"yes":"no"; print "\n\nThe answer = $ans\n"; __________________ William Ampeh (x3939) Federal Reserve Board