print FILE map { s/.*\@poseidon.*/ /g; $_; } @lines;
                               ^^