Perl script to reorder a given file's name around a specified delimiter.