DB<1> $str = "123 A_D1 XYZ A_D1[1] BLAH BLAH";

  DB<2> $str =~  s/A_D1\[1]//g;

  DB<3>  p $str
123 A_D1 XYZ  BLAH BLAH