in reply to How to extract lines starting with new names/words

I believe moritz's script will do what you want, but your expected output is confusing: 
MA01001A1A03.f1 760 5640111 ad1
MA01001A1A04.f1 300 15232924 ubq
MA01001A1B22.f1 580 77745475 ra

[download]
Should not the second line list the first occurrence of ubq? And what happened to DNA? 
MA01001A1A03.f1 760 5640111 ad1
MA01001A1A03.f1 760 42572233 ubq
MA01001A1A04.f1 300 145334669 DNA
MA01001A1B22.f1 580 77745475 ra

[download]

Update: Ah, yes...
As moritz points out (in more polite words) below, I am an idiot. Or tired. I repent, expect swift and adequate punishment, and demand this node be voted down to about -5. (but not much more. please)

Replies are listed 'Best First'.
Re^2: How to extract lines starting with new names/words
by moritz (Cardinal) on Mar 13, 2008 at 08:58 UTC
    but your expected output is confusing:

    I found that the expected output matches the description very well.

    Should not the second line list the first occurrence of ubq?

    no, because they both start with MA01001A1A03.f1

    And what happened to DNA?
    it starts with the same word as the third line.
[reply]
[d/l]

In Section Seekers of Perl Wisdom