# this:
($foo, undef, $bar) = split(/\./, $baz);

# can also be done as:
($foo, $bar) = (split(/\./, $baz))[0,2];


# and this:
(undef, $foo) = split(/\./, $bar);

# can also be done as:
($foo) = (split(/\./, $bar))[1];