/.*/ is greedy. So all you have to do is

($x, $y) = /(.*)\.(.*)/;
[download]

and Bob's your uncle. Unless there is no period. You'll have to handle that case separately.