I also suggest that you read about the split() function. The default split uses /\s+/. Basically that means that when a sequence of one or more "whitespace" characters are found, they are thrown away and the token to that point is returned. Your split is highly unlikely to return anything of interest.

my @genpepts = split(/^\w{5}/,$in);
[download]

Probably is not going to do what you want.

You seem to be describing a file like:

LOCAL
asrdf asfd afd asdf aafd
qwer qwer qre qwre qrew
//
LOCAL
asrdf asfd afd asdf aafd
qwer qwer qre qwre qrew
//
[download]

I doubt that this is what you actually have.

use split() when you know what to throw away.
use match global when you know what you want to keep.

---

---

• Are you posting in the right place? Check out Where do I post X? to know for sure.
• Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:

  <code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>

• Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
• Want more info? How to link or How to display code and escape characters are good places to start.