Writing data to file

[rk0000]

I have ActiveStatePerl5.8.6 installed in my machine. I want to do the following.
I have a file namely "f1" which contains the data like below:
attribute01
attribute02
attribute03
attribute04

Now i want to open the file "f1" and read the each line and output to some other file say "outfile". The outfile should be like below:

#define attribute01 1
#define attribute02 2
#define attribute03 3
#define attribute04 4

How can i do this using Perl script.

 

[KevinADC]

you have this posted on another forum where it has two replies.

 

[rk0000]

The following command is working fine:
perl -pe "s/^/#define /;s/\s*?$/ $./" f1 > outfile

 

[rk0000]

Note: this command is works fine for windows (activePerl)
for unix: ` should be used in place of "
perl -pe `s/^/#define /;s/\s*?$/ $./` f1 > outfile