【Perl 】初心者コーナーPart5

[(種類)(tab)(名前)]というフォーマットのデータを
種類と名前で分けて、それぞれ変数に入れたいのですが
うまくいきません。

neko giko
･･･というデータを使ってやってみました。

$data = "neko giko";
$data = s/(\S+) (\S+)/$syurui,$namae/;
print "$syurui\n";
print "$namae\n";
exit;

結果は何も表示されません。どなたかおしえてください。