Help for this page

Select Code to Download


  1. or download this
    my %conv =  (
    "\0x00\0x3d"    =>    'key1',        
);
  2. or download this
    $search=join '|', map quotemeta,keys %conv;
while (<>) {
    s/($search)/$conv{$1}/geo;
}