[! use strict; sub test { $x = 1; } !] [! 5 + !]