open my $csvIn, '<', $fileName or die "Failed to open $fileName: $!";

##</code><code>##

<$csvIn> for 1 .. 2;

while (defined (my $line = <$csvIn>)) {

##</code><code>##

$line =~ tr/;,/ ./;

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
use Text::CSV;

my $csv = Text::CSV->new ();
my $fileName = 'File_name.csv';

open my $csvIn, '<', $fileName or die "Can't open $fileName: $!";
<$csvIn> for 1 .. 2;

while (defined (my $line = <$csvIn>)) {
    $line =~ tr/;,/ ./;
    
    if ($csv->parse ($line)) {
        my @columns = $csv->fields ();
        print "@columns\n";
    } else {
        my $err = $csv->error_input;
        print "Failed to parse line $.: $err";
    }
}

close $csvIn;