substitution

[COLLINEAU Franck]

Hi!

 Here is my code:

#!/usr/bin/perl
open (FIC, "toto.txt") || die "Impossible d'ouvrir toto.txt $! \n";;
while(<FIC>)
{
 $_=~s/L/titi/;
}
close FIC;


It does nothing, why ?

Thanks

Franck


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]