open my($file), '<', 'liste.txt'; while( my $line = <$file> ) { chomp($line) ; print "$line \n"; }