Perl string replacement

Question

I want to convert each letter in a sentence to a specific letter depending on whether it is a consonant or a vowel, where the vowels are AEIOU.

So, if I have a line

$string = 'Hello' 

I would like to see

 $string = 'CVCCV' 

As a result.

I know I can use:

 $string =~ s/A/V/ $string =~ s/B/C/ $string =~ s/C/C/ 

etc., to check and convert each letter separately, but, of course, there should be a more efficient way to do this.

Answer 1

Use ... s/[bcdfghjklmnpqrstvwxyz]/C/gi and s/[aeiou]/V/gi . They are called character classes . The i flag makes the case insensitive.

Answer 2

normalize case, then apply the transliteration operator:

 $string = lc $string; $string =~ tr/aeioua-z/VVVVVC/; 

Answer 3

 s/([aeiou])|[az]/ defined $1 ? 'V' : 'C' /ieg