my $file = 'file1';

    $file =~ s/$/.rtf/; # $file will now contain the .rtf extension