#!/usr/bin/perl

foreach $var (<*>) { 
	$new=$var;
	lc($new);
	$truc = BANANE;
	print "$truc";
	lc($truc);
	print "$truc";
	print "$new\n";
	#rename $var, $new;
}