open(info,"thedatabase.db");
@bb=<info>;
close(info);
foreach $l(@bb){
 $comment = s/$l/****/g;
}