my( $serial, $name, $category ) = $filename =~ 
        /^(\d+)([[:upper:]][[:lower:]]*)([[:upper:]][[:lower:]]*)/;