perl -MO=Deparse,-p -e 'my ($not_foo) = context() // print "Whoops"' (my($not_foo) = (context() // print('Whoops')));