Rename files using Perl code. Steven Haryanto <stevenharyanto@gmail.com>