perl -e 'for (0..4) { eval "\$[=$_; print substr(q/ollah/,4,1);" or die $@};print "\n"'