Hello Dmitriy! [EMAIL PROTECTED] (Dmitriy A. Kuvshinov) wrote: > Greetings from Moscow!
Hmm. > print "$1\n" while m%(([+-]?(?=\d|[\.,]\d)\d*([\.,]\d*)?((\se|e|\s?\^) > ([-+]?\d*[,\.]?)\d+)?)|([+-]?e[+-]?\d*[,.]?\d+))%gxi; $a='[+-]?\d*[,.]?\d+';print"$_\n"for/$a\s?[e^]$a|$a|[+-]?e$a/ig --- Mtv Europe
