Select Code to Download

my $string = "foo.bar.foobar";
my $count = 2;
...
$count = 3;
@splits = reverse map {scalar reverse} split(/\./,reverse($string),$co
+unt);
# --> @splits = qw/ foo.bar.foobar baz biff /