Nice explanation. Interestingly, adding the empty prototype to the sub definition and removing return changes the behaviour, as Perl optimizes the sub away:

sub InfStr () { 'ababa' }
[download]

which is equivalent to

use constant INFSTR => 'ababa';
[download]