...

open($fh,"Table.csv");
@Table=<$fh>;
close($fh);

foreach $Table(@Table){
	$Table=~s/\x{00c8}/\x{010c}/g;  # capital C with caron
    $Table=~s/\x{008a}/\x{0160}/g;  # capital S with caron
    $Table=~s/\x{008e}/\x{017e}/g;  # capital Z with caron
    $Table=~s/\x{008a}/\x{010d}/g;  # small c with caron
    $Table=~s/\x{00e8}/\x{0161}/g;  # small s with caron
    $Table=~s/\x{00e8}/\x{017f}/g;  # small z with caron
	
	#	follows the code parsing semicolons 
	
}

# writing data into XLS file