#!perl 

foreach $file (<*.gif>) {
    $filenew=$file;
    $filenew =~ s/i/I/;
#    $filenew =~ tr/A-Z/a-z/;
    rename($file,$filenew);
}


