http://www.perlmonks.org?node_id=274852

Look: for( "${^T}rees" ) { select( $one ), chop and chop; sort $thoughts while $working; { package wood; log for log; } How->can( "I" ) . $Reach::enlightenment . ??; }

Compiles and runs without errors.

Makeshifts last the longest.