Off the top of my head not really. You could run an sql query something like
Code:
DELETE FROM botinventory WHERE ItemID IN (itemid1,itemid2,itemid3)
that would delete all items that are in that list from bot inventory.
you could get real complicated and have a scheduled task run on the os every X hours and run that script, or run it by hand whenever you want.
as far as a perl script, you could do something like this pseudo code suggests
Code:
var banned_item_id_list = {1000,10002,10003}
EVENT bot_spawn
for each item in bot_inventory
if banned_item_id_list contains item.itemid
delete item
end if
next
end event