c:\@Work\Perl\monks>perl -wMstrict -le
"my $s = 'test atest atested tested test- -test test .test test. test';
 ;;
 $s =~ s/\b(test)(?!-)\b/DONE/g;
 print qq{'$s'};
"
'DONE atest atested tested test- -DONE DONE .DONE DONE. DONE'