while (my $line = <LS>)
{
  chomp $line;
  $count += 1;
  print $count . ". " . $line;
}