The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 initialize a map:

    the map should be read as replace the characters X
    by the string stored at $MAP[ ord('X') ]
  
 Note: the value stored $MAP[ ord('X') ] can be a single char (string length=1) or a string
 at this time any other value is not handled: IVs, NVs, ...

Set your replacement characters