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 -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]