Help for this page
... while (<DATA>) ... >some:header|text|foo:bar|blah WHATEVER:DATA|WOULD:DEMONSTRATE|THE:PROBLEM ...
foreach $value (@e) { my @elements= split(/\|/, $value); ... my $output = "$headers[1]\t\t$peptide\t\t$total \t\t 1 \t\t$mi +ssed\t$sequence\n";#72 ... }