sub function { 
    defined wantarray ? $string : print $string 
}

##</code><code>##

my $string = function();