open(PS, "ps -ef |") or die "Problem invoking 'ps': $!\n";
while (<PS>) {
  next unless /$version/ && /online/;
  my($pid) = (split)[2];
  print "pid $pid\n";
}
close(PS);

##</code><code>##

while (<PS>) {
  next unless /$version/ && /online/;
  ($pid) = (split)[2];
}
print "pid $pid\n";