$data = "0.7591.4166.6352.6465.4574.1653.833"; @data = $data =~ /\d\.\d\d\d/g;