my  $s = 'foo.bar.foobar';
my ($var1, $var2) = $s =~ m[(^.*)\.(.*?$)];
print $var1, $var2;

foo.bar foobar