while (my $line = <FH>){

	$line =~ s/[^\\]#.*//;
	$line =~ s/^#.*//;
	$line =~ s/\\#/#/g;

	print "$line";
}