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