#!/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;