I'm not entirely sure what you want for output because you did not show an example. But, if you just want to grab the 6th column from your input, you could use
split instead of a regex:
use strict;
use warnings;
while (<DATA>) {
my $num = (split)[5];
print "$num\n";
}
__DATA__
*> 4.23.88.0/23 64.135.0.1 0 1000 234
+46164 i
*> 4.23.89.0/24 64.135.0.1 0 1000 2014
+8 46164 i
*> 4.23.92.0/23 64.135.0.1 0 1000 2013
+8 46164 i
*> 4.23.92.0/22 64.135.0.1 0 1000 3018
+ 46164 i
*> 4.23.94.0/23 64.135.0.1 0 1000 4041
+8 46164 i
*> 4.23.112.0/24 64.135.0.1 0 1000 1018
+ 174 21889 i
*> 4.23.113.0/24 64.135.0.1 0 1000 2018
+ 174 21889 i
*> 4.23.114.0/24 64.135.0.1 0 1000 18 1
+74 21889 i
*> 4.36.118.0/24 64.135.0.1 0 1000 7018
+ 174 21889 i
prints:
234
20148
20138
3018
40418
1018
2018
18
7018