my $example = "MOC.COMPUTER.COM.FOO / SEC.SECT / CO";
$example =~ s/\b($searchpat)\b/$replace{$1}/g;
print "$example\n";