my %conv =  (
    "\0x00\0x3d"    =>    'key1',        
);

##</code><code>##

$search=join '|', map quotemeta,keys %conv;
while (<>) {
    s/($search)/$conv{$1}/geo;
}