in reply to Monitoring file names for changes in extension

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

[download]

In Section Seekers of Perl Wisdom