open(INF,"products") || dienice("Can't open productsDB: $!"); 
while(<>) {
 chomp;
 my ($productId,$nmPrice,$mPrice,$itemName,$shortdesc,$image,$address) = split/\|+/;
  print qq~ $itemName, $nmPrice ~; if $productId =~ /^B00/;
}
close INF;