remplace ...

[perl]

Hi,

I want to remplace all the word "html" in "php" in some web pages ...

I tried this but nothing is happening : 

open (TRANS, "c:\\test\\test.txt");

@transformation=<TRANS>;

foreach $ligne (@transformation)
{
chomp($ligne);
$transform=$ligne;
$transform=~s/html/php/g;
};

close (TRANS);