Perl usuwanie komentarzy z pliku

Cześć. Napisałem prosty skrypt mający na celu usuwanie komentarzy z kodów źródłowych Java, C++.
Problem w tym, że program usuwa mi całą linie z komentarzem zamiast tylko tego co w komentarzu. Może ktoś mi powiedzieć co zmienić?

#!/usr/bin/perl
open (my $in, "<", "graph.txt") or die "warning";
open (my $out, ">", "out3.txt") or die "warning";
while(my $line = <$in>) {
    print $out $line
        unless $line =~ m#//#;} 
close $in;
close $out;

Skorzystaj z funkcji do operacji na tekście.

@Tepedete masz poniżej poprawioną wersję.
Jeżeli nie znasz dobrze perl'a to przynajmniej nie zaciemniaj sobie składni.

#!/usr/bin/perl

open (my $in, "<", "graph.txt") or die "warning";
open (my $out, ">", "out3.txt") or die "warning";
while(my $line = <$in>) {
        if($line =~ /(.*)\/\//){print $out "$1\n";}
	else{print $out $line;}
}
	
close $in;
close $out;