use strict;
use locale;

my $dans_texte = 0;
while( my $ligne = <STDIN> ){
    if( $ligne =~ / FIN DU FICHIER / ){
	$dans_texte = 0;
    }	
    if( $dans_texte ){
	print $ligne ;
    }
    if( $ligne =~ / DEBUT DU FICHIER / ){
	$dans_texte = 1;
    }
}