my $count = 1;
my $string = "--This is a comment\n--This Comment continues here\nNOT a comment;\n";

print "Original: $string\n";

while ($string =~ s/^--.*\n//m) {
  print "string = $string\ncount=$count\n";
  $count++;
}
print "Final: $string\n";
exit;