print qq~ $itemName, $nmPrice ~ if $productId =~ /^B00/;