simple regexp

[Matija Papec]

This is pretty beginners question, how can I extract IP number from $s?

$s = "ALL: 172.184.70.165 # PORT: 59"
Pattern have to match four numbers separated by "."


Besides I have some array and need to insert some values into it(somewhere
in the middle). "perldoc -f splice" says that it only does replacement and
truncation. Do you guys have some idea how to make this work? tnx!



-- 
Matija