#!/local/bin/perl
while (<>) {
s/ +<\/avsn>/<\/avsn>/g;
s/ +/ /g;
s/<n>/\n/g;
print "$_";
}