#!/usr/bin/perl -pi s/(^|\s),,/$1\„/g; s/''/\”/g;