$_ = '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