#!/usr/bin/perl -w
use strict;

my $string = "foo.bar.foobar";
my ($val1,$val2) = split /\.(?!.*\.)/,$string;
print "$val1,$val2\n";

##</code><code>##

#!/usr/bin/perl -w
use strict;
my $string = "foo.bar.foobar";
my $position = rindex($string,'.');
my ($val1,$val2) = (
  substr($string,0,$position++),
  substr($string,$position)
);
print "$val1,$val2\n";