mem #3

$ ls|perl -e 'for(<>){chomp;$q=$_;$q=~ s/^a/A/;\
> system("mv", $_, $q)==0 or die $!;}'