$file = 'file.txt';
substr($file, length($file), 0) = '.bak';
print "$file\n";
                   
$file = 'file.txt';
$file =~ s/$/\.bak/;
print "$file\n";