apple or perl script

Hello, STEP 1 I would like a automatique program who creat a shtml file automatique from a list of words in a text file (rtf) example list in [login to view URL] hello hello world i hate programming etc. RESULT 3 shtml files [login to view URL] [login to view URL] [login to view URL] STEP 2 Change 4 words in the file with the name of the file Example Code needs to be in the file like this Filename 1: [login to view URL] <!--#set var="city" value=hello" --> <!--#set var="keywords" value="hello" --> <!--#set var="description" value="hello" --> <!--#set var="pageName" value="hello" --> <!--#include virtual="[login to view URL]" --> <p></p> <!--#include virtual="[login to view URL]" --> <!--#include virtual="[login to view URL]" --> Filename: [login to view URL] <!--#set var="city" value=hello-world" --> <!--#set var="keywords" value="hello-world" --> <!--#set var="description" value="hello-world" --> <!--#set var="pageName" value="hello-world" --> <!--#include virtual="[login to view URL]" --> <p></p> <!--#include virtual="[login to view URL]" --> <!--#include virtual="[login to view URL]" --> Filename: [login to view URL] <!--#set var="city" value=i-hate-programming" --> <!--#set var="keywords" value="i-hate-programming" --> <!--#set var="description" value="i-hate-programming" --> <!--#set var="pageName" value="i-hate-programming" --> <!--#include virtual="[login to view URL]" --> <p></p> <!--#include virtual="[login to view URL]" --> <!--#include virtual="[login to view URL]" --> Thats it , I need the code! you can make it in Perl or applescript thanks