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