in reply to file name parsing to get the original file name

use File::Basename;

The module comes standard with modern versions of Perl.

Abigail

Replies are listed 'Best First'.
A reply falls below the community's threshold of quality. You may see it by logging in.