foreach (<$FHIN>){
   my ($dow, $month, $dom, $time, $pid, @next)= split;
   my $user= shift @next;
   if (not $user=~/^[/) {
     unshift @next, $user;
     $user= '';
   }
   my $status= shift @next;
   $status .= ' ' . shift @next until ($status=~/:$/);
   my $client= shift @next;
   ...