Calculate the number of vowels in a given string. Using PERL.

Calculate the number of vowels in a given string (consider input using uppercase letters as well).
Example input: Calculate the number of vowels in a given string

Example output:                    
a=3                      
e=5                       
i=3                      
o=2                        
u=2

Program structure:

Input and Output: