Переменные Perl в запросах к БД
 

други, товарищи! помогите справиться с бедой... есть запрос к БД: $query = qq~SELECT distinct p.*, substring(p.partnumber from '-....$') as last4 FROM parts p INNER JOIN p1 ON (substring(p.partnumber from '-....$') = substring(p1.partnumber from '-....$') AND p.id p1.id) WHERE p.description NOT SIMILAR TO '%(|=)%' AND p.sellprice > 0 $where ORDER BY last4~;при выполнении, "$'" заменяется на значение переменной $', а оно мне совсем не надо... или подскажите как мне извлечь последние выражение вида '-0000' из поля таблицы, а то я не силен в регулярных выражениях. сделал вариант, но он выдает первую найденную комбинацию (partnumber может быть вида "ups100-1000-0304").Заранее спасибо!!!