(undef, my $foo) = split /:/;