use strict;
use warnings;

local $/ = ">Seq";

while (<DATA>) {
    chomp;
    next if ! length;
    print "Record: $_\n";
}

__DATA__
>Seq1
AAATTTGGG.....
>Seq2
AGATTTACC.....