A Perl procedure for protein identification by Peptide Mass Fingerprinting