$p = '\w+-\d+'; for $i (1,2) { /$p/ }