My export.txt file has data in the format
Joe Doe mail: [EMAIL PROTECTED]
I want my script to replace mail for email. At the end of the script I get an empty file? Why what am i doing wrong
#!/user/bin/perl
open(openFile, "<export.txt");
open(writeFile, ">export.txt");
while(<openFile>)
{
print writeFile if s/mail/email/ ;
}_________________________________________________________________
The new MSN 8: advanced junk mail protection and 2 months FREE* http://join.msn.com/?page=features/junkmail
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
