#!/usr/bin/perl
use v5.22;
use strict;
use warnings;

open my $fh, '<', 'sample.svg' or die "Cannot read : $!\n";
open my $out_fh, '>', 'samplemin.svg' or die "Cannot write : $!\n";
while (<$fh>) {
	s/(-?\d\.\d*)/$1 + 0/ge; # trailing zeroes on decimal fractions
	print $out_fh $_;
}
close $out_fh;
<>;


##</code><code>##

<svg xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" version="1.1" width="148.00mm" height="105.00mm" viewBox="0 0 56.1468 39.8339">
<line transform="translate(0.0000, 6.6544)" stroke-width="0.2000" stroke="#000" x1="20.0390" y1="-0.0000" x2="56.1077" y2="-0.0000"/>
</svg>