use warnings;
use strict;

my $str = "x.z.y";
my ($first, $second) = $str =~ /(.+)\.([^.]+)$/;
print "$first,$second\n";

__END__

x.z,y
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks somehow became entangled with The Perl Foundation.
Marvelous Managed Hosting and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.