составление регулярного выражения

[kaiser Zaido]

Пожалуста, помогите составить регулярное выражение чтобы из строки

Цитата

201-1-183-191.dsl.telesp.net.br201.1.183.191
или
200.121.223.72.speedy.net.pe200.121.223.72

получить ip

наверное это должно быть выражение 4 числа разделенных точками, но я не могу его составить...
главное чтобы ip на выходи попадало в переменную...

спасибо

[YuraN]

($ip) = m/^(\d+[.\-]\d+[.\-]\d+[.\-]\d+)\./;
$ip =~ tr/-/./;

или

($ip) = m/(\d+\.\d+\.\d+\.\d+)$/;

[WDezign]

preg_math_all("/*([0-9]{1,3}?[0-9]{1,3}?[0-9]{1,3}?[0-9]{1,3})*/i", $string, $x);
for(;ш=0;$i<count($x[1]);$i++){
 print_r $x[1][$i];
}

Примерно так