Select Code to Download

$var = [ split /:/, $_ ];

$_     = "Fracassus Cacus Eryx Anteus"; # see Acme::MetaSyntactic
$foo   = split;                         # '4'
...
($foo, $bar) = split /\s+/, $_, 1;      # ('Fracassus Cacus Eryx Anteu
+s', '')
($foo)       = split /\s+/, $_, 1;      # ('Fracassus')
($foo)       = (split /\s+/, $_,) [2];  # ('Eryx')

$foo = (split /\s+/, $_) [0];