$ perl -MO=Deparse equal

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