in reply to Re: Removing File Extensions
in thread Removing File Extensions

This fails if the file has no extension. Probably a simple test for a match failure would fix this:
my($name,$ext); ($name, $ext) = m!\A(.*)\.([^.]+)\z!s or $name = $_,$ext='';