my $oldfile = 'file1';
     my $newfile =~ s/$/.rtf/; # Search for the end of a string and 
                                # replace it with the extension