Select Code to Download

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

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