my $a ="A_D[1]";
print "Removing $a from \$str\n";
my $str = "123 A_D1 XYZ A_D1[1] BLAH BLAH";

print "str = $str\n";
$str =~ s/\b$a / /;
print "str = $str\n";