my $val = (split /\./, 'foo.bar.aaa')[0];
#or
my($val) = 'foo.bar.aaa' =~ /^([^.]+)/;