$/='.';    # Records are terminated by dots
my $lnum = 0;
while (<>) {
  tr/\n//d; # Get rid of any embedded newlines
  ++$lnum;
  print "$_  --->>> record $lnum\n";
}