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

##</code><code>##

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