$ perl -e 'not our $reason if $y; our $s = do{&$_} or die "--Tennyson"'