#!/usr/local/bin/perl -w

use strict;

my $str = "12345-112316 string string 11111-222311\n\n 71231-121111";

# assuming '-' is the delimiter
my @pnumbers = $str=~/(\d+-\d+)/g;

# print
print "$_\n" foreach(@pnumbers);