http://qs1969.pair.com?node_id=1030491


in reply to split giving me a splitting headache

/.*/ is greedy. So all you have to do is
($x, $y) = /(.*)\.(.*)/;
and Bob's your uncle. Unless there is no period. You'll have to handle that case separately.