my $old_html = qr/.+?font-size-14.+?/;
my $ziffern = qr/\d+\.\d+,\d+| # 123.456,789 oder
\d+\.\d+| # 123.123 oder
\d+,\d+| # 123,123 oder
\d+ # 123
/x;
$muster = qr/(\d{2})\.(\d{2})\.(\d{2}) # 12.34.56 = $1,$2,$3
$old_html ($ziffern) # = $4
$old_html ($ziffern) # = $5
$old_html ($ziffern) # = $6
$old_html ($ziffern) # = $7
.+?font-size-14.right.+? # uff. Bald geschafft. right?
# Obacht: Die letzte Gruppe ist anders.
( \d+\.\d+\.\d+| # 123.123.123 oder
\d+\.\d+| # 123.123 oder
\d+ # 123
) # = $8
.+?right... # right again...
(\d+,\d+|\d+) # 123,123 oder 123 = $9
.+?(M|T) # weiter bis zum nächsten M oder T ($10)
/x;