perl -e 'foreach (<*.lw1>) {
         $new=$_;
         $new =~ s/kwa/kwj/;
         rename($_, $new);
         print "$_ changed to $new\n";
}'
