use strict; use warnings; while () { 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 20148 46164 i *> 4.23.92.0/23 64.135.0.1 0 1000 20138 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 40418 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 174 21889 i *> 4.36.118.0/24 64.135.0.1 0 1000 7018 174 21889 i #### 234 20148 20138 3018 40418 1018 2018 18 7018