#!/usr/bin/perl
#format dewey list


sub trim
{
  my @out = @_;
  for( @out)
  {
    s/^\s+//;
    s/\s+$//;
  }
  return wantarray ? @out : $out[0];
}


#open input file
#  $file = t;
 $file = "dewey.raw.sorted";
open(FILE, "< $file") or die "can't open $file: $!";

#read file
@lines = <FILE>;
$lastline="";

foreach $line (@lines)
{
  {
    
    $subjects = trim($line);
    $line = $subjects;
    $pre = '"';
    $line = join($line,$pre, '",') ;

    if( $lastline ne $line) 
    {
      print "$line\n";
      $lastline = $line;
    }
  }
}