open (CSV, "<File_name.csv") or die $!;
while (<CSV>) {
    next if (1 .. 2);
    $_ =~ s/\;/ /g;
    $_ =~ s/(\d),(\d)/\1\.\2/g;
    print;
}