diff --git a/Finance/Quote/DKB.pm b/Finance/Quote/DKB.pm index bd6ced7..d1803bb 100644 --- a/Finance/Quote/DKB.pm +++ b/Finance/Quote/DKB.pm @@ -121,7 +121,7 @@ sub dkb my @dates = $parser->findnodes( '//div[@class="exchangeLine"]/span'); if (@dates) { my $tradedate = $dates[0]->as_text; - $tradedate =~ s/.*\|\s*(\d\d.*) $/\1/g; + $tradedate =~ s/.*\|\s*(\d\d.*) $/$1/g; if (length($tradedate) < 10) { $tradedate = POSIX::strftime( '%d.%m.%Y', localtime()); }