use strict;
open FILE,"data.txt" or die "could not open data.txt: $!\n";
# set seperator to ">"
local $/ = ">";
# chuck first one
my $junk = <FILE>;
while(my $record = <FILE>){
  chomp $record;
  # do important stuff
}
[download]