open (FILE, "foo.txt");
    my @lines = map { s/,/|/g; $_; } <FILE>;
close FILE;