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]

 push @array, $_ for myfunct($str1, $str2);

the postfix-for automatically uses $_ as loop variable.

But this looks weird, is your function returning a list?

2) say vs print

say starts a new line (inserts a "\n" at the end)

Perhaps you want sprintf?

#!/usr/bin/env perl

#       $Id: 1199173.pl,v 1.3 2017/09/12 09:55:38 karl Exp karl $
# http://perlmonks.org/?node_id=1199173

use strict;
use warnings;
use feature qw(say);

my $my_nose = sprintf( "%s", nose(q(cuke)) );

say $my_nose;

sub nose {
    shift;
}

__END__
[download]

Regards, Karl

$answer = myfunct($str1, $str2);
[download]

say for myfunct($str1, $str2);
[download]

print for myfunct($str1, $str2);
[download]

Anonymous Monk:

Your first code snippet stores the result in $answer, but you haven't told it to print yet. Here's a quickie bit of code to show you a few variations on the theme:

use strict;
use warnings;
use v5.20;

my ($a_val, @some_vals);

# Store a scalar
$a_val = scalar_func(10);

# Print it later
say "A random number from 1 .. 10:";
say $a_val;

# Store a list
@some_vals = list_func(5, 10);

say "Print a list of values, each on one line";
say for @some_vals;

say "Print all the values on a single line";
say @some_vals;

say "Print all of them on a single line, with commas";
say join(", ", @some_vals);

# return a random integer from 1 to the specified number
sub scalar_func {
    my $range = shift;
    return 1 + int($range * rand);
}

# return $count random numbers from 1 .. $range
sub list_func {
    my ($count, $range) = @_;
    return map { scalar_func($range) } 1 .. $count;
}
[download]

Will print something like:

A random number from 1 .. 10:
1
Print a list of values, each on one line
3
1
10
10
3
Print all the values on a single line
3110103
Print all of them on a single line, with commas
3, 1, 10, 10, 3
[download]

Also, LanX is right: you don't want to use the 'for' clause when your function returns a single value. It doesn't do anything wrong in this case, but it's misleading: When reading the code, it implies that your function is returning a list of results.

...roboticus

When your only tool is a hammer, all problems look like your thumb.

for does a loop over one element, that's nonsense.

$answer = myfunct($str1, $str2);
say $answer;
[download]

Cheers Rolf
_{(addicted to the Perl Programming Language and ☆☆☆☆ :)
Je suis Charlie!}

Disregarding efficiency, a for loop over one element can be "useful" as a "topicalizer", i.e. locally setting $_ and shortening code. It's suggested by the Perl documentation in Switch Statements for use with the experimental when.