title: Translate string in Perl
body: <p>In PHP, <a href="http://php.net/manual/en/function.strtr.php" rel="nofollow"><code>strtr</code></a> can accept an input of array and replace all occurrence of key within the string, and the <strong>longest keys</strong> will be tried first. </p>
  
  <p>Is there equivalant function in Perl?</p>