...
my $xlsx = $fp =~ s\csv\xlsx\;
...
my $workbook  = Excel::Writer::XLSX->new("$fp");