perl -le 'print qq(@{[ do{ print q(I got here first); 1 } ]})'