# perl inverse.pl fichier.txt
# Prend la première colonne d'un fichier et l'écrit à l'envers

while (<>){
	chomp;
	@G=split("\t");
	@F=split(//,$G[0]);
	#for $i (@F..0){
	for ($i=@F;$i>=0;$i--) {
		if ($i==0){print "$F[$i]\n";}
		else {print $F[$i];}
	}
}