#!/usr/bin/perl
use strict;
use warnings;

my $str = q~<tr class="hgrau2 hr"><td width="65">Datum: 02.01.08</td>
<td width="65">11,330</td><td width="65">12,330</td>
<td width="65">13,330</td><td width="65">14,330</td><
td>&nbsp;</td></tr></table><div class="tb_ot"> 
Als Kursliste &ouml;ffnen und drucken: <a class="pfeil" 
style="margin-left:10px;" href="javascript:p('popup_histo ..... 
~;

my @matched = $str =~ m/(\d{1,6},\d{1,3})/gm;

{
    local $, = local $\ = $/;
    print @matched;
}