#!/usr/bin/perl

use strict;
use warnings;

my $file='test.svg';

$/=undef;
open(my $fh, '<', $file) or die "$file ($!)\n";
my $data=<$fh>;
close($fh);

$data=~s/<!--[^<>]+-->//gs;
$data=~s/\n\s*\n/\n/gs;
$data=~s/<([^<>]+)>/my $d=$1; $d=~s!\s+! !gs; $_="<$d>"/gse;
$data=~s!\*/\s+!*/\n!gs;
$data=~s!\}\s+!}\n!gs;

open($fh, '>', "$file.out") or die "$file.out ($!)\n";
print $fh $data;
close($fh);