#!/usr/bin/perl

# le while boucle sur les lignes de STDIN


while(my $line = <STDIN>){
  unless ($line =~ m/^%/o) {
  # si la ligne commence par un pourcent, on ne fait rien. le m signifie 'match' 
  # (s signifierait substitution)
     if ($line =~ m/^(.*?[^\\])%/o ) {
     # si la ligne contient un pourcent non precede d'un backslash
     # le pattern signifie: debut de ligne, ( n'importe quoi ( le plus court possible )
     # tout-sauf-antislash ), pourcent 
       print("$1\n"); # on imprime la partie non-commentaire de la ligne
     } 
     else {
       print "$line" # la ligne ne contient pas de commentaire
     } ; 
  }
}