This should do what you want:

while ( <INFILE> ) {
    next if /^>/;
    push @dat, split;
}
[download]