$file =~ /^(\d+)([A-Z][a-z]+)([A-Z][a-z]+)\.(.*)$/;
print "Serial   : $1\n";
print "Name     : $2\n";
print "Category : $3\n";
print "Extension: $4\n";


#though... you may want to change [a-z] to include any other possible 
+chars
[download]

Untested, but should work...

                - Ant
                - Some of my best work - (1 2 3)