note sauoq <p> <code> $ perl -MO=Deparse -i'foo e eval "warn q[bar]";' -e1 BEGIN { $^I = "foo"; } eval 'warn q[bar]'; '???'; -e syntax OK </code> </p> <div class="pmsig"><div class="pmsig-182681"> <tt> -sauoq<br /> "My two cents aren't worth a dime.";<br /> </tt> </div></div> 971866 971866