$p = '\w+-\d+';
/$p/;
/$p/;