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

##</code><code>##

LOCAL
asrdf asfd afd asdf aafd
qwer qwer qre qwre qrew
//
LOCAL
asrdf asfd afd asdf aafd
qwer qwer qre qwre qrew
//