move extension on files

perl -e 'foreach my $r (glob("*.jad")) { $x=$r;$r=~ s/jad/java/;system("mv $x $r") unless(-f $r)}'