my $cellval = $Sheet->Cells($rownum,"B")->{'Value'};
print "$cellval\n";
$cellval =~ s*\$**g;
print "$cellval\n";