#!/usr/bin/perl

$num = 1;
@datac = ();

while ($line = <STDIN>) {
  $oldline = $line;
  
  chomp $line;
  @data = split(";",$line);
  foreach (@data) {
    s/^\"//g;
    s/\"$//g;
    s/\\\"/"/g;
  }

  $lv = $data[1];
  $lv =~ tr/A-Z/a-z/;
  $lv =~ s/[^a-z]//g;
  push @datac, $oldline;

  if (6 == scalar(@datac)) {
print STDERR $lv, "\n";
    open FHAND, "| ./batch6.pl > 20090729/${num}_${lv}.svg";
    print FHAND @datac;
    close FHAND;
    $num++;
    @datac = ();
  }

}

open FHAND, "| ./batch6.pl > 20090729/${num}_${lv}.svg";
print FHAND @datac;
close FHAND;