perl -ple's/.../.../;' file