my $string = "...";

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

print "No comments: $string\n";