elsif ($start_input =~ /^\d\d\d\d\.\d\d\.\d\d\.\d\d$/ && $end_input =~ /^\d\d\d\d\.\d\d\.\d\d\.\d\d$/){
	$start_input =~ tr/\.//d;
	print "$start_input\n";
	$end_input =~ tr/\.//d;
	print "$end_input\n";
	while (<DATA>){
		if (/$start_input/ .. /$end_input/){
			if ($_ =~ /(.*)\t(.*)\t(.*)/){
				print "Date  = $1" . "\t" . "Temp_moy_DegCs = $2" . "\t" . "HR_moy_s = $3\n";
			}
		}
	}
}