I am not sure it is a bug.

Does this not fall under the "if it looks like a function..." rule?

Nothing was getting stored anywhere so Perl discarded it.

If you were to change to

my $a = '0';
print "3f\n" if $a;
[download]

You don't get output. But you don't get the error.