while ( <INFILE> ) {
    next if ($_ =~ /^(\>)/);
    push @dat, $_;
}