Regular expression to get part of string

[Sayed, Irfan (Irfan)]

Hi All,
 
I have one variable which has the value as follows
 
"ccvob01    pts/2        Nov 21 12:17  (135.27.157.38 logged in ....."
 
Now I want only "ccvob01" from that string so I wrote reg.exp. as
follows
 
my ($usr1)=($usr =~ m{(.+)\S$}); where $usr contains above string.
 
But still I am not getting proper output. 
 
Can somebody please guide me.
 
Regards
Irfan.