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