Select Code to Download

$str = "aa bb cc";

...
@a = $str =~ m/(\w+)/g;
print "@a\n";
# prints aa bb cc

print localtime(), "\n";
print scalar localtime(), "\n";
...

print "\$time => $time\n";
print "\@time => @time\n";