my( $serial, $name, $category ) = $filename =~ 
        /^(\d+)([A-Z][a-z]*)([A-Z][a-z]*)/;