while($lines =~ m/traffic-gen.*?client address = 192\.0\.0\.(\d+).*?data units received = (\d+).*?jitter/scgi) { print $1, "\tyes\t",$2,"\n"; push @ones, $1; push @twos, $2; }