sub build_dictionnary{
	my $line="ABCDE";
	my @dic;

	$line=~s/(([A-Z]{1})[A-Z]{2})/push(@dic,$1);/g;
	
}