"But I need it in regular expression"

So take this one to continue:

Update: For some unknown reason i skipped a column, sorry:

#!/usr/bin/env perl

my $line = 'brown vihl729 172.31.176.71:8532503_6 (v2013.02) (elicserv
+1.muc.ifin.com/3120 6260), start Mon 3/11 18:31';

$line =~ m/(\w+)\s
         ([0-9a-z]+)\s
         [0-9.:()_]+\s
         \(.+\)\s
         \(([a-z0-9.]+).+\)
         ,\s
         [\w\s]+
         (\d+\/\d+\s\d+:\d+)
        /x;

print qq($1 $2 $3 $4\n);

__END__

Karls-Mac-mini:monks karl$ ./missing.pl 
brown vihl729 elicserv1.muc.ifin.com 3/11 18:31
[download]

(If something still makes sense...)

Karl

But I need it in regular expression..
So, McA solution is using what? Please show what you have done on your own.
The result you are getting and what is expected.
Thanks

Well the problem is a bit more complicated. The solution McA has given certainly works.

Lets say in the loop, I first grep it for a particular user say, stephen by the following expression ,although the later part of this expression needs to be corrected for the server name and etc

if(/^\s+stephen(.*)/)

And , now for the subsequent iteration, I want to grep all the user names and servername,version name for other users who are not stephen. That is becoming a problem to uniquely identify the lines for which the user name is not known. So using split is a problem. Can't I have a regular expression of the following pattern :
$line =~ /^\s+(any user but stephen) (machine name) (version)(server)(date time )/
Hope I could explain the problem.
Thanks.

while(<DATA>){
next if /^\s*stephen\s/;
if (~m/^(\w+?)\s+(\w+?)\s+\((\w+?)\)\s+\((\w+?)\),\s+.+$/){
   print "user: $1 version: $3 server: $4";
   }
}
[download]

(More complicated and less elegant that the use of split in any case IMHO...)