=head1 *NAME*perltst5.prl -- language analyzer (perl test 5)=head1 *DESCRIPTION*This program analyzes an arbitrary sample of any language written in
latin characters (a-z). =head1 *TASK*The program should output the following information: 1. Frequency distribution of the vowels and consonants used in the sample. 2. A list of the different consonant-vowel patterns 
   used in the sample:
   A consonant-vowel pattern ("c-w pattern") should have 
   an 'a' for each vowel, and a 'c' for each consonant;
   e.g. the c-w pattern word 'mopufom' would be 'cacacac',
   and the c-w pattern for 'oleq' would be 'acac'. 3. The most frequent consonant-vowel pattern in the sample.
=head1 *QUESTION*The sample below consists of two *different* language samples,
pasted one after another.At which point does the second one probably start?
=cut# Note: qw( ) "quotes words": creates an array with the space-separated items @vowels = qw( a e i o u y );
@cons   = qw( b c d f g h j k l m n p q r s t v w x z );$/ = undef;
$_ = <DATA>; # All the text is in $_ now.# write the program here:__END__