perl -e ' sub f {"123\n"}; print f' # prints '123'