Help for this page

Select Code to Download

Select or download this

while ($teststring =~ /\b(\w+-\w+-\w+)\b/gi) {
  print "$1\n";
}