remove documents from mongo js, shell, perl, grep

gistfile1.txt

perl -ne '/([0-9a-z]{24,24})/ and print $1, "\n"' 12_07.txt | xargs -L 1 -I{} mongo 127.0.0.1:2707/db --eval \
"var _pid = '{}';
print(_pid);
var pin = db.pin.find({_id: ObjectId(_pid)});
if (pin && pin[0]._id) {
  print('pin found: ' + pin[0]._id);
  var photo = db.photo.find({_id: pin[0].p});
  if (photo && photo[0]._id) {
    print('photo_id: ', photo[0]._id);
    print('remove photo: ', db.photo.remove({_id: photo[0]._id}) );
  }
  pin[0].st = 3;
  print('save pin: ',  db.pin.save(pin[0]) );
}"