$ perl -e '$_ = do{q(Hello World)}; print $_,"\n"' 
Hello World