$/ = "\/\/\n";
$counter=1;

while (<>){
  # Read the each record and return one whole record
    $entry = SWISS::Entry->fromText($_);
    print "Entry $counter\n";
  #read each line of the record??
}