***
***
***
HI			COCORICO                                              

-song HELLO
-chicken 250420
-forest
-data data
-data 1

***
***
***

##</code><code>##

#!/usr/bin/perl
use strict;

my $inFile = q{EXEMPLE_2.txt};
open my $INFILE, q{<}, $inFile or die;

my $outFile = q{results_2.csv};
open my $OUTFILE, q{>>}, $outFile or die;


while (<$INFILE>) { #lecture du fichier

	if (/^HI( |\t)*COC/) {
	my $song;
	my $hour_dla;
	
		while (<$INFILE>) {
			
			if ( /(^-)(song.*)/) {
				$song = $2;
				chomp($song);
			}
	
			
			if ( /^-chicken.*(\d\d)(\d\d)(\d\d)/) {
				$hour_dla = join(":",$2,$3);
				print $OUTFILE "$song;$hour_dla\n";
			}
			
			last if (/^HI.*/)
		}	
	}
}	
close $INFILE;
close $OUTFILE;

##</code><code>##

song HELLO
;04:20

##</code><code>##

song HELLO;04:20