my ($one, $two) =
   ($data =~ /($RE{num}{decimal}).*?($RE{num}{decimal})/);