Ahh, no the problem is that I had (.|^) and tested it, but then decided (incorrectly) it should be (^|.). I like your (.) solution the best.

-- Randal L. Schwartz, Perl hacker