http://qs1969.pair.com?node_id=263322

skyler has asked for the wisdom of the Perl Monks concerning the following question:

Hello Monks, I don't know how to add an extension to a file that doesn't have one. I tried pattern matching but it doesn't do anything. Do you have any ideas? For example: "file1" needs to change to "file1.rtf"
$newfile =~ s/\^$/.rtf/;