You append the string:

my $oldfile = 'file1';
my $newfile = $oldfile . '.rtf';
[download]

No pattern matching required.

----
I wanted to explore how Perl's closures can be manipulated, and ended up creating an object system by accident.
-- Schemer

Note: All code is untested, unless otherwise stated