$ perl -MO=Deparse unequal2

BEGIN { $^W = 1; }
use strict 'refs';
do {
    '???'
};