A Perl procedure for the analysis of phosphopeptide tandem mass spectra