or download this
$ perl -we'"131.228.132.245.9494 " =~ /(\d+)(.)(\d+)(.)(\d+)(.)(\d+)(.
+)(94) / &&
> print qq<\n\nfirst digits: "$1", first .: "$2",\n
...
second digits: "132", second dot: ".",
third digits: "245", third dot: ".",
fourth digits: "9", fourth dot "4", portnum: "94"