Consider using a regular expression,

#!perl
use strict;
my $filename =  'ABcde.cSv';

(my $fff = $filename) =~ s/\.csv$/_header.txt/i;

print "$filename -> $fff\n";
[download]

poj