This seems to do the job:

while ( <> )
{
    s{
       -\|-.*?         # After the -|- thingy
       (
         \d+(?:-\d+)?  # A number, maybe two
       )
     }
     {
       print $1 . "\n"
     }egx ;
}
[download]

_______________
D a m n D i r t y A p e
Home Node | Email