As I understand it, unary plus predecedence here needs to be defined with parentheses; hence to get 21 using the correct precedence:

#!/usr/bin/perl -l

use strict;
use warnings; 
  
print my $q = 1;
print $q + +(4*5);
print $q+4*5;
print $q+ 4*5;
[download]