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