#!perl -p
s/\b[Bdgt]\w+ ?//g