in reply to accessing/printing specific rows in a flat file DB

Try: 

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

[download]

alex pleiner <alex@zeitform.de>
zeitform Internet Dienste

In Section Seekers of Perl Wisdom