http://www.perlmonks.org?node_id=1199175


in reply to print and say

1) What do you mean by "store"? If you want to store it in a variable, assign the function call to the variable: 
my $result = myfunct($str1, $str2);

[download]

To store it in a file, print to a file: 

open my $OUT, '>', $filename or die $!;
say {$OUT} myfunct($str1, $str2);
close $OUT;

[download]

2) Documented in say:

Just like print, but implicitly appends a newline. say LIST is simply an abbreviation for { local $\ = "\n"; print LIST }. 

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,

[download]

In Section Seekers of Perl Wisdom