You should have a file called 'english.sorted' from previous Perl exercises. If not, get it from http://tinyurl.com/z5k4p85. (1) Write and save the program 'quiz_p4.pl' to find all words in 'english.sorted' that begin with an uppercase letter, and to push those words into the array @upcase. You must use regular expression matching and no more than one 'if' structure. Print the contents of @upcase. You must use  to read english.sorted. 

(2)

Write and save the program 'quiz_ec.pl' to output all words in 'english.sorted' that contain a run of 6 or more consecutive non-vowel characters, where vowels are A, E, I, O, U or Y (case insensitive). You must use regular expression matching. You will get no credit for a program that uses a giant 'if/elsif/else' or 'switch' structure. Correct output from the program includes words like: Knightsbridge oughtn't For this program, you must chomp before doing regular expression matching.