1 foreach my $col ( grep { m/(Duguje|Potra.uje|Saldo)/ } keys %$row ) {
\r
2 foreach my $v ( @{ $row->{$col} } ) {
\r
3 next unless length($v) > 0;
\r
4 push @{ $update->{ $col . '_old' } }, $v;
\r
5 $v =~ s/(\d+)?\.?(\d{0,3})\,(\d{2})/$1$2.$3/;
\r
6 push @{ $update->{$col} }, sprintf('%.2f',$v);
\r