'$wait = 0 unless ($wait == abs($wait)); $wait = 34;'
'sub { my ($x) = @_; }->(q{abcdefghij})'