while <$_> {
   while ([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}:[0-9]{1,5}/g) {
   @iparray[$iparraycounter] = $1;
   $iparraycounter++;

}}