#!/usr/bin/perl

$#ARGV == 1 || die "usage: svg-round.pl <filename> <digits>";

my $fn = $ARGV[0];
my $digits = $ARGV[1];
my $fdigits = $digits + 1;

open(IN, $fn);
while($in = <IN>) {
    while((my $num) = ($in =~ /(\d+\.\d{$fdigits,})/)) {
	my $rounded = sprintf "%.${digits}f", $num;
	$in =~ s/$num/$rounded/;
	#print $num . "\t" . $rounded . "\n";
    }
    print $in;
}
close(IN);