{
    no warnings 'uninitialized';
    $j =~ s/\;/\,/gi;
    }