$ perl -le 'my @val= split(/\./,"foo.bar.aaa"); print @val[0];'
foo