my ($basename) = $name =~ m!/([^/]+)\..*?$!;