reg. ex.

[Sayed, Irfan (Irfan)]

Hi All,
 
I have one string like this "test@/vobs/pvob_aic";
 
Now I want only "test" from this string, so I wrote reg. ex. like this
 
$test="test@/vobs/pvob_aic";
$ts = ($test =~ m{(.+)@$});
print "$ts\n";

But I am getting output as 1 not a string "test" 
 
can some body please give me exact reg.ex. to achieve this
 
Please guide
 
Regards
Irfan.