Select Code to Download

use strict;
use warnings;
...
print $str1, "\n";
print $str2, "\n";
print $str3, "\n";

my ($str1, $str2, $str3) = map {"string" . $_} @_;