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

##</code><code>##

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

##</code><code>##

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