Help for this page
000_FFF0_0000 0011_FFF0_0010 00111_FFF00_00011
foreach my $peptide_id (sort { ($a =~ /(\d*)_FFF(\d*)_(\d*)/)[0] <=> ($b =~ /(\d*)_FFF(\d*)_(\d*)/)[0]}