use strict;
use warnings;

my @x = localtime 1503403724;
print "@x\n";

my $x = localtime 1503403724;
print "$x\n";

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