perlquestion faten daim Write a program that read from (swissprot_output.html) by using regular expression and subroutine by reference. Use the text file provided and ensure the output is exactly like below: