in reply to Delete line if REGEX == true

If the idea is to make it terse enough to compete with sed or grep, this is the tersest I have so far... 
print grep !/\,\,\,\,\,/, <>;

[download]

In Section Seekers of Perl Wisdom