use strict;
use warnings;
use Win32::OLE;

my $Excel=Win32::OLE->new('Excel.Application');
$Excel->{Visible}=1;
my $Book = $Excel->Workbooks->Open("F:\\assess\\Lorem.xls") or die "Can't open file"; 
$Excel->Cells->Replace({
	What          => ",", 
	Replacement   => ""});