my $test = "A C Test";
if($test=~s/\bA C Test\b/A&C Test/){print "<b>$test</b>";}