D:\>perl -MO=Deparse -E"say 02.5"
use feature 'current_sub', 'evalbytes', 'fc', 'postderef_qq', 'say', 'state', 'switch', 'unicode_strings', 'unicode_eval';
say '25';
-e syntax OK