Well... you can do

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

The regexp method is most likely the more efficient, especially on larger strings.