yosefm,
One minor nit:

print qq~ $itemName, $nmPrice ~ if $productId =~ m"^B00";
[download]

You have to make the m explicit if you are going to change the default delimiters in a match.

Cheers - L~R

Update: Apparently I am wrong and my apologies. It seems that the only time you have to make the m explicit if you are also dropping the binding operator by working on the default $_ as in if /^foo/ can't be done as if |^foo| it needs to be done as if m|^foo|