$ perl -MO=Deparse uncommented

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