> perl -le ' my $incr = 0; q( print $incr++, $& and " stew" =~ /.*/ and eval $& until $incr > 10) =~ /.*/; eval <>;' eval $&; # prints '0 ( guesswhat) '..'10 stew' (versions differ on -w)