$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]

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

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

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

• Updated:
  Normally I don't update my nodes, but Aristotle makes an important point below, and I'd be afraid that someone might cargo-cult my original code, which had [:lower:] instead of [[:lower:]], etc.

jdporter
The 6th Rule of Perl Club is -- There is no Rule #6.

Have you ever used them? The character classes you use will any of the characters in :epru and :elorw respectively. POSIX classes are used like this:

/^(\d+)([[:upper:]][[:lower:]]*)([[:upper:]][[:lower:]]*)/;
[download]

Makeshifts last the longest.

$_ = '001WhitePottery.jpg';
my($serial, $name, $cat) = m< ^ (\d+) ([A-Z][a-z]+) ([A-Z][a-z]+) >x;

print "($serial) Serial\n",
      "($name) Name of Product\n",
      "($cat) Category\n";

___output__

(001) Serial
(White) Name of Product
(Pottery) Category
[download]

_________
broquaint

broquaint,
I agree - ".. the data is as simple as that provided". I would only say that it might be worthwhile to create a catch bucket for the purpose of refining the RE over time to catch more and more a-typical cases.

my @bitbucket;
$_ = '001WhitePottery.jpg';
if (m< ^ (\d+) ([A-Z][a-z]+) ([A-Z][a-z]+) >x) {
    my($serial, $name, $cat) = ($1, $2, $3);
    print "($serial) Serial\n",
          "($name) Name of Product\n",
          "($cat) Category\n";
}
else {
    push @bitbucket , $_;
}
print "The following files didn't match rule - please fix";
print "$_\n" foreach (@bitbucket);
[download]

I only point this out as the OP claimed newbie status.

Cheers - L~R