Select Code to Download

$ perl -wMstrict -Mdiagnostics -le 'my @array; print defined(@array)'
Can't use 'defined(@array)' (Maybe you should just omit the defined()?
+) at -e
...

$ perl -wMstrict -le 'my @array=(undef); print @array?"true":"false"'
true

$ perl -wMstrict -MData::Dump -e 'my @array; dd @array; $_="";
    @array = split(",",$_ ); dd @array'
()
()

$ perl -wMstrict -MData::Dump -e 'dd split /-|(x)/, "-", -1'
("", undef, "")