Delete line if REGEX == true

DrAxeman has asked for the wisdom of the Perl Monks concerning the following question:

I'm getting the hang of using Regular Expressions. Not how to write them, but how to use them in Perl. I have a challenge that I can't google anywhere.

I need to delete the lines of a file if a certain REGEX is true.

if ($. =~ /\,\,\,\,\,/) {
   -delete line- $.
}
[download]

Back to Seekers of Perl Wisdom