Can someone shorten this upper routine?
sub toUpper { my $z = shift; $z =~ tr/a-z/A-Z/; return $z; }
Yes, I can. Replace wall calls of toUpper() with uc(). ;)
James
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]