Develop a Perl program that receives as argument on the command line the name of a file in the working directory (containing one protein sequence in FASTA format) and prints the number of Methionin in the sequence.
-It checks the number of arguments received on the command line and if the number is not 1 it prints an error message and exits.
-It assigns the first argument to one variable.
-It initialize to 0 a counter variable
-It opens for reading the file with that name. If the file is not existing it gives an error message.
-It reads one after the other (while loop) the lines of the file assigning the read line to a variable.
- If the line starts with ">" (it is the first line of a FASTA file) the line is not considered.
Else all the "M" in the line are counted using the tr instruction. The number of M is added to the counter.
-When all the lines have been read the while loops terminates and the program continues closing the file.
-It prints a message "Number of M in the sequence : ".
-It prints the value of the M counter variable.