perl -e 'rename $_, (/^(.*)\./g)[0].".AUW" while <./*.AU~>'