in reply to punctuation search... using ascii

What about moving that last while() out of the while(<DATA>) loop?

In Section Seekers of Perl Wisdom