while (<>) {
  $line = $_;
  chomp $line;
  print $line ;
  next;
  if ($line =~/^;/){
     print "$line\n";
   } else {
     print "$line\n";
    }
}