Q1: If i only want to get the name. Is the following code correct.
Replace

my ($name, $ext) = $_ =~ m!\A(.*)\.([^.]+)\z!s;
[download]

with

my ($name) = $_ =~ m!\A(.*)\z!s;
[download]

Q2: Could you please explain this line

 ($name, $ext) = $_ =~ m!\A(.*)\.([^.]+)\z!s;
[download]

Not in detail , i just want some idea.
I am really impressed with the way i got a reply. it was very quick.

jdporter - added code formatting