Of course, you can use a positive lookahead too...

my ($val1, $val2) = split /\.(?=[^.]*$)/, $string;
[download]

but really... neither choice is better than a simple capturing regex.

-sauoq
"My two cents aren't worth a dime.";