while (<>){
    $entry = SWISS::Entry->fromText($_);
    print "Entry $counter\n";
    foreach my $one_line (split /\n/,$entry) {
      # do something with each line now
    }
}