$ perl -we'"131.228.132.245.9494 " =~ /(\d+)(.)(\d+)(.)(\d+)(.)(\d+)(.)(94) / &&
> print qq<\n\nfirst digits: "$1", first .: "$2",\n
> second digits: "$3", second dot: "$4",\n
> third digits: "$5", third dot: "$6",\n
> fourth digits: "$7", fourth dot "$8", portnum: "$9">'


first digits: "228", first .: ".",
second digits: "132", second dot: ".",
third digits: "245", third dot: ".",
fourth digits: "9", fourth dot "4", portnum: "94"