my %translate = 
    ( 'dz' => "\x{02a3}", 'ts' => "\x{02a6}" ... );

$_ = "string with ts and dz digraphs"
for my $digraph ( keys %translate ) {
    s/$digraph/$translate{$digraph}/g;
}