my $oldfile = 'file1';
my $newfile = $oldfile . '.rtf';