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


#open input file
# $file = e;
$file = mesh;
open(FILE, "< $file") or die "can't open $file: $!";

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

foreach $line (@lines)
{
  @arr=split(/;/, $line);
  $line = @arr[0];
  $pre = '"';
  $line = join($line,$pre, '.\\n",') ;

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