#!/usr/bin/perl
use strict;
use warnings;

       open FILE, "<titi.txt" or die "titi.txt n'existe pas!\n";
       #on place le contenu dans un tableau de ligne
       my @lignes = <FILE>;
       close FILE;
       
	my @result=();
	my $lgn = scalar@lignes;
	for (my $i=0 ; $i<$lgn ; $i++) {
		if ( $lignes[$i] =~ /\'fingers\'/ ) {
		@result=(@result ,  $lignes[$i] , $lignes[$i+1]);
		};#end if

		if ( $lignes[$i] =~ /\'l\'/ ) {
		@result=(@result ,  $lignes[$i] , $lignes[$i+1]);
		};#end if
		
		if ( $lignes[$i] =~ /\'totalM\'/ ) {
		@result=(@result ,  $lignes[$i] , $lignes[$i+1]);
		};#end if
		
		if ( $lignes[$i] =~ /\'wf\'/ ) { #total W
		@result=(@result ,  $lignes[$i] , $lignes[$i+1]);
		};#end if
		
		if ( $lignes[$i] =~ /\'w\'/ ) {
		@result=(@result ,  $lignes[$i] , $lignes[$i+1]);
		};#end if
			 
	};#end for
	
       open my($fichier), ">tutu.txt" or die "tutu.txt n'existe pas!\n";
       print $fichier @result;
       close $fichier;
