$foo = ( split ( /\./, $bar ) )[0];