% perl -i -p -e "BEGIN{print 'A new line!\n';}" foo A new line!\n%