my $counter = 1;
my $tmp = '';


foreach(<DATA>) {
  chomp;
  if (!/^>/) {
    $tmp .= $_;
  } else {
    print $counter++, " : $tmp\n" if length $tmp;
    $tmp = "";
  }
}
print $counter, " : $tmp\n" if length $tmp;