($foo,undef) = split( /\./, $bar );