$b =~m/^\s*\w+\s+(\d+)\s+/o;
                  my $b_pid = $1;

##</code><code>##

   my @args = ("kill", "-9", $2);

##</code><code>##

m/^\s*\w+\s+(\d+)\s+/o