my @splits = split(/\./,$string,-2);

##</code><code>##

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

my $string = "foo.bar.foobar";

my($val2, $val1) = split(/\./,(reverse $string),2);

$val1 = reverse($val1);
$val2 = reverse($val2);

print "$val1, $val2\n";