Select Code to Download

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