Perl >> Как скопировать все части строк после "@(#)" и до пробела?

Код ниже копирует все что идет после, до конца строки.
Как зделать чтоб копировало до первого пробела?

$str = quotemeta "@(#)";

while (<macros>) {
chomp;
if (/$str(.+)$'/is) {
print desclist $1 . "\n";
}
}

Примечание:
Жадность поиска, это вы о чем?

Примечание:
Да и скрипт работает как и раньше. Копирует всю строку после "@(#)"
Строка выходит такой:
"afs_2of4 1.3 28 Jun 1993"
А мне нужна
"afs_2of4"

Примечание:
Работает, просто у меня там идет несколько строк с разделителем в виде пробела
Немного изменил
/$str([^\s]*)/is

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.