title: Perl, string replacement
body: <p>I want to convert each letter in a sentence to a certain letter depending on if it is a consonant or a vowel, where vowels are AEIOU.</p>
  
  <p>So if I have a string</p>
  
  <pre><code>$string = 'Hello'
  </code></pre>
  
  <p>I would like to see</p>
  
  <pre><code>$string = 'CVCCV'
  </code></pre>
  
  <p>As a result.</p>
  
  <p>I know I can use:</p>
  
  <pre><code>$string =~ s/A/V/
  $string =~ s/B/C/
  $string =~ s/C/C/
  </code></pre>
  
  <p>and so on to check and convert each letter individually, but surely there must be a more efficient way to do this.</p>