$ perl -MO=Deparse -i'foo e eval "warn q[bar]";' -e1
BEGIN { $^I = "foo"; }
eval 'warn q[bar]';
'???';
-e syntax OK