Select Code to Download

use strict;
use warnings;
...
my $z = "ccc";
$z =~ s/ccc/wantarray()?"list":"scalar"/e;
print "$z\n";