Выборка из слова на perl

[Rita]

Помогите пожалуйста сделать выборку из слова.
Например, для $pptp присваивается 4325435-pptp345
Нужно после обработки перлом получить чтобы для $pptp присваивалось 4325435, т.е. вырезать "-pptp345"

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[terminus]

Код: Выделить всё

$pptp = '4325435-pptp345';

$pptp = substr $pptp, 0, index($pptp, '-pptp345');

[Rita]

Немножко не то, я делаю выборку из базы и для $pptp присваиваются разные значения(сессии впн). Тут нужно как то с помощью шаблонов. Вот сижу читаю документацию, давно не упражнялось все уже выветрелось даже то что было

[Гость]

$pptp = '4325435-pptp345';
$pptp = -m/\d+/;

http://www.citforum.ru/internet/perl/regexp/

[Rita]

Ой, гость, спасибо конечно, но я нашла способ в виде $pptp=~ s/[-](\w+)//;
Но ваш шаблон возвращает 0

[Гость]

ну в принципе можно и так
но ты убиваешь строку исходную
поиск все же делаеться как то так

Код: Выделить всё

$pptp = '4325435-pptp345';
$pptp =~ m/^(\d+)-(\w+)/;
print $1;