while (<>) {
    $line=$_;
    chomp $line;
    $StartTag='<!--';
    $EndTag='-->';
        if (($line =~ m/\Q$StartTag\E/) .. ($line =~ m/\Q$EndTag\E/)){
            $Flag=0;
        }
        elsif (($line =~/<!--/) || ($line =~/-->/)){
            $Flag=0;
        }
        else {
            $Flag=1;        
        }
            
            if($Flag){
              print "$line\n";            
            }
  
}
[download]