my $line = 'somthing apache24 up 11572 Mar 15 16:25 161.20.224.243:8808 161.20.224.243:8802 161.20.224.243:8809'; my ($col1,$col2,$col3,$size,$month,$date,$time,@ips) = split /\s+/, $line; print "@ips"; __END__ 161.20.224.243:8808 161.20.224.243:8802 161.20.224.243:8809 #### @ips=/($ipregex)/g;