A Perl procedure to improve the efficiency of the identification and characterization of phosphopeptides