Don’t get me wrong, I’ve used AWK. Hell, between friends of mine, we’ve lived AWK.

But Perl (and even BASH shell scripting) — you don’t need awk.

> for FILE in `ls *`
do
mv $FILE $FILE.jpg
done

> for FILE in `ls *.jpg*.jpg`
do
mv $FILE ${FILE%*.jpg}
done