$ perl -i.bak -pe 's/^.*foo.*$/bar/' file