my $string = "...";

$string =~ s/(^|\n)--[^\n]+//g;

print "No comments: $string\n";