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