hello, >if ($input =~ /^pauline$/i) { I guess another way to do this is if (uc $input eq 'PAULINE') { Not sure which would be better stylistically, but this seems a little simpler to me. Enrique Terrazas, MD mailto:terrazas@labmed.ucsf.edu <http://pangloss.ucsf.edu/~terrazas/> ===== Want to unsubscribe from this list? ===== Send mail with body "unsubscribe" to macperl-request@macperl.org